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Editorial Amplification 
of 


Volume X—-Background, Development, and Computer Documentation 


The implementation procedures (Volume X) for the even 
numbered tables (Tables 6, 24, and 54) do not provide a sufficient 
explanation of truncating and rounding. The literal application 
of the implementation procedures would result in a code capable 
of producing differences from the printed tables of 1 in the 
fourth derived place at a rate of at least one difference in 
every 240 tabulated entries. This insufficiency in the rounding 
and truncating procedures is a direct result of a lack of clarity 
in Volume X. 

This lack of clarity is corrected as described in the following 
pages. The corrections to the implementation procedures were 
validated by an exhaustive number-by-number test of the results of 
the API master tape against the tabular representation produced 
in three different computer systems: Double precision IBM, single 
precision CDC, and a module in a TI-59 calculator. These three 
types of equipment exhibited differences of 1 in the fourth place 
at a rate of less than .008 percent (7 entries out of 87,000 
in Table 6B and less than half that rate in Table 6A). This rate 
is caused by the differences in the number of places carried by 
each machine and represents the maximum degree of software-machine 
independence presently attainable. The rate of difference, while 
not quantitatively known, will be less than this for five significant 
figure applications. Because of the nature of the calculations, it 
is believed that the same basic rate of difference will be found 
in all of the even numbered tables. 

The changes outlined below are editorial corrections to the 
printed Volume X and do not affect the master tape, the published 
tables, the computer listings, or the balloted standard. 
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Specific Changes 


On pages 101/102 (Step 6), 125 (Step 6), 143/144 (Step 3), 
233 (Step 6), 255/256 (Step 6), 274/275 (Step 3), 361 (Step 5), 
382 (Step 5), and 400/401 (Step 3), correct the calculation of 
VCF step to read like the sample step reproduced here. 


STEP X: Calculation of VCF 

define VCF = EXP[-qgAt(1.0 + 0.8aAt)) 

= EXP[-aAt - 0.8 a2 At] 
a. Calculation of exponent 

atl) a At = eXXXXXXXX truncated 

a(2) .8aAt = .XXXXXXXX truncated 

a(3) 68 a2 At = .XXXXXXXX rounded 

a(4) -aAt = 0.8 a2 Ate = O.XXXXXXXX 


be. Calculation of exponential 
VCF = EXP[-aAt - 068 «2 at2] = X.XXXXXXXX — truncated 
using at least the first 7 terms of the power series expansion 


of eX 


Computational _ 


1.XXXX rounded to nearest 0.0001 if VCF > | 
value of VCF 


O.XXXXX rounded to nearest 0.00001 if VCF < 1 


Table value 
of VCF = X.XXXX rounded VCF to nearest 0.0001 


As a result of these corrections, the following changes must 


be made to the examples and test procedures: 


Volume X Page Number Correction 
X-105 Step 6: b. VCF = 0.98108352 
X-106 Step 6: b. VCF = 1.01170961 
X-107 Step 6: b. VCF = 0.92848397 
X-128 Step 6: b. VCF = 0.98071056 
X-129 Step 6: b. VCF = 1.00986724 
X-130 Step 6: b. VCF = 1.00705932 
X-131 Step 6: b. VCF = 0.98010283 
X-145 Step 3: b. VCF = 0.98108806 
X-146 Step 3: b. VCF = 1.01171376 
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These tables or the mathematical relationships represented thereby may be used 
by anyone desiring to do so, but the American Petroleum Institute, the American 
Society for Testing and Materials, and the Institute of Petroleum and their respec- 
tive members and the U.S. National Bureau of Standards shall not be held respon- 
sible or liable in any way for loss or damage, including, but not limited to, conse- 
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country. 
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Joint API/ASTM Committee on Static Petroleum Measurement in part from data 
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FOREWORD 


The Objectives 


The complete collection of the jointly issued API/ASTM-IP tables of which this 
volume is a part is the result of close cooperation between the American Petroleum 
Institute (API), the Institute of Petroleum (London) (IP), and the American Soci- 
ety for Testing and Materials (ASTM). The overall objective of this effort was to 
meet the worldwide need for a uniform and authoritative publication, based on the 
most accurate information available. This publication serves as a basis for standard- 
ized calculations of measured quantities of petroleum fluids regardless of point of 
origin, destination, or units of measure used by custom or statute. To meet the 
objective of worldwide standardized measurement practices, the American Na- 
tional Standards Institute (ANSI) and the British Standards Institute (BSI) have 
also been closely involved nationally, resulting in the acceptance of the revised 
tables as an American National Standard and as a British Standard. In addition, in 
their respective capacities as Secretariat of the International Organization for Stan- 
dardization TC/28 and of TC/28 SC3, ANSI and BSI have been instrumental in 
progressing the revised tables towards their adoption as an international standard 
by the International Organization for Standardization. 


Historical Notes 


The present collection supersedes all previous editions of the petroleum measure- 
ment Tables ANSI/ASTM D1250, IP200, and API Standard 2540. Action is being 
taken in ISO/TC 28 for the corresponding tables listed in ISO R91 and the tables 
in the addendum to R91 to be superseded by the present revised collection. 

In view of the progress of metrication in countries formerly using the British 
system of weights and measures, demand for the revision of the British edition does 
not justify the considerable work involved. The present edition will therefore be 
withdrawn on the same date as the corresponding metric and American editions are 
published and will not be replaced. 

For the metric edition the new standard covers products with densities in the 
range 610.0 to 1076.0 kg/m? (0.610 to 1.076 g/mL). The tables for densities below 
this range, covering liquefied petroleum gases, have not been revised. 

The original tables, which were developed in the late 1940s, were based on the 
1916 data of Bearce and Peffer (1916) and represent thirty years of evolution. The 
history of this evolution is summarized by Hall et al. (1975). 


Present Development 


Downer and Inkley (1972) demonstrated that the original tables were not satis- 
factory representations of many petroleum fluids of current importance. In 1974 the 
American Petroleum Institute (API) and the United States National Bureau of 
Standards (NBS) initiated a research program funded by the API which intended 
to provide the solid scientific base for the development of more accurate, conse- 
quently more equitable, measurement tables. The result of this program was precise 
density data on 349 different fluids representing a wide variety of refined products 
and 66.8 percent of the world crude production in 1974. The completion of this 
five-year, $500,000 project in March 1979 opened the way for modernizing the 
tables. Using the NBS density data and taking advantage of publications of out- 
standing technical authorities, a Joint API-ASTM Physical Properties Working 
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Group produced this present collection of the Petroleum Measurement Tables. The 
development and results of the work are described by Hankinson et al. (1979). 


Conceptual Departure 


A major conceptual departure from previous versions is inherent in the recogni- 
tion of the present and future position of computers in the petroleum industry. The 
actual Standard represented by this volume and the companion volumes is neither 
the hardcopy printed tables nor the set of equations used to represent the density 
data but is an explicit implementation procedure used to develop computer subrou- 
tines. The standardization of an implementation procedure implies the standardiza- 
tion of the set of mathematical expressions, including calculational sequence and 
round-off procedures, used within the computer code. Absolute adherence to the 
outlined procedures will ensure that all computers and computer codes of the 
future, meeting the stated specifications and restrictions, will be able to produce 
identical results. Hence, the published implementation procedures are the primary 
Standard, the distributed subroutines are the secondary standard, and the published 
tables are produced for convenience. 


Acknowledgments 


The task of completing this project could not have been accomplished without 
many substantial contributions by a considerable number of individuals and compa- 
nies. It is impossible to single out any specific individuals for special mention. 
However, included in the introductory material are lists of the officers of the API’s 
Committee on Petroleum Measurement (COPM), the officers of the Joint API/ 
ASTM Committee on Static Petroleum Measurement (COSM), the major contribu- 
tors from the Institute of Petroleum, and the members of the COSM Physical 
Properties Working Group. 


References 


Bearce, H. W., and E. L. Peffer, ‘‘Technology Papers of National Bureau of Standards—Density and 
Thermal Expansion of American Petroleum Oils,” GPO, pp. 125-154, Washington, DC, 1916 

Downer, L., and F. A. Inkley, Oi! and Gas Journal. Vol. 70, No. 25. p 52-55, June 19, 1972. 

Hall, A. H., J. A. Simpson, and J R. Whetstone, “Investigation of Densities and Thermal Expansion 
Coefficients Applicable to Petroleum Measurement,” SP 7, World Petroteum Congress, Tokyo, 1975. 

Hankinson, R. W., R. G. Segers, T. Krolikowski Buck, and F. P. Gielzecki, Oil and Gas Journal, Vol 
77, No. 52, p. 66-70, December 24, 1979. 


viii 


Copyright por American Petroleum Institute 
Mon Feb 07 13:41:50 2005 


API MPMSx*11-1 VOL*X 80 MM 0732290 O5258be 410 


PREFACE 


The Petroleum Measurement Tables, Volume Correction Factors (Volumes I 
through X), are, with this edition, incorporated into API's Manual of Petroleum 
Measurement Standards. These tables form Section 1 of Chapter 11, ‘Physical 
Properties Data.” To simplify the transition from the American Society for Testing 
and Materials’ (ASTM) publication of the original tables to API’s publication in 
1980, the original ASTM numerical designations have been retained for the indi- 
vidual tables. 

The numbering system used throughout Volumes I through X corresponds to the 
numbering system of the Manual of Petroleum Measurement Standards. The system 
consists of a series of fields separated by decimal points. The first two fields (11.1) 
indicate chapter and section of the manual; the third field gives the ASTM table 
number. Therefore, although not serial, 11.1.5, 11.1.6, 11.1.23, 11.1.24, 11.1.53, 
and 11.1.54 are the major headings used. All other headings are subordinate to the 
three field headings. 

Volumes I through IX, which are designed for field use, are arranged on a 
functional basis rather than on a topical basis. 


First Series—Volumes |}, IJ, and Ii! 

These three volumes contain TABLES 5 and 6, the tables for the “API, °F, 60°F 
base series, plus examples to guide the user. Each volume contains specific data 
as follows: 


Volume I —Generalized Crude Oils (TABLES 5A and 6A) 

Volume II —Generalized Products (TABLES 5B and 6B) 

Volume II] —Individual and Special Applications (TABLE 6C) and an appen- 
dix describing the equations and constants used and the densities 
and coefficients of thermal expansion of each NBS sample. 


Second Series—Volumes IV, V, and VI 


These three volumes contain TABLES 23 and 24, the tables for the relative 

density, °F, 60°F base series, plus examples to guide the user. Each volume 

contains specific data as follows: 

Volume IV —Generalized Crude Oils (TABLES 23A and 24A) 

Volume V —Generalized Products (TABLES 23B and 24B) 

Volume VI —Individual and Special Applications (TABLE 24C) and an appen- 
dix describing the equations and constants used and the densities 
and coefficients of thermal expansion of each NBS sample. 


Third Series—Volumes VII, VII, and IX 


These three volumes contain TABLES 53 and 54, the tables for the kilogram per 
cubic metre, °C, 15°C base series, plus examples to guide the user. Each volume 
contains specific data as follows: 


Volume VII —Generalized Crude Oils (TABLES 53A and 54A) 

Volume VIII—Generalized Products (TABLES 53B and 54B) 

Volume IX —Individual and Special Applications (TABLE 54C) and an appen- 
dix describing the equations and constants used and the densities 
and coefficients of thermal expansion for each NBS sample. 


Volume X provides a complete breakdown of the Petroleum Measurement 
Tables, Volume Correction Factors, and references appropriate volumes for the 
location of specific tables. Volume X is the key volume of the entire set and contains 
the actual Standard, the implementation procedures, and the instructions for the 
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use of the computer subroutines. The history and development of the project are 
also included in Volume X under 11.1.6. 
Inquiries concerning the application of the tables or the computer subroutines 

should be addressed to— 

American Petroleum Institute 

Measurement Coordination 

2101 L Street, N.W. 

Washington, D.C. 20037 
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Atlantic Richfield Company 

R. A. Hartmann 

Exxon Corporation 

R. W. Hankinson 

Phillips Petroleum Company 


K. E. Bailey 

Williams Pipeline Company 
C. M. Owen 

SOHIO Pipe Line Company 
B. S. Tharp 

Atlantic Richfield Company 
R. A. Hartmann 

Exxon Corporation 

R. W. Hankinson 

Phillips Petroleum Company 
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Kurt A. Beyreis 
Mobil Sales and Supply 


Judith J. Bigby 
Phillips Petroleum Company 


Theresa Krolikowski Buck 

Union Carbide Corporation 

Marshall C. Clegg 

Standard Oil Company of California 

Terry A. Coker 

Phillips Petroleum Company 

Howard M. Davis, Jr. 

Marathon Pipeline Company 

Frank P. Gielzecki 

Imperial Oil, Ltd. 

Risdon W. Hankinson (Chairman, 
Working Group) 

Phillips Petroleum Company 

Raymond M. Henry 

Gulf Research and Development 
Company 

Clyde M. Owen (Vice-Chairman, 


COSM) 
SOHIO Pipe Line Company 


Mark A. Plummer 
Marathon Oil Company 


C. Steven Pringle 
Texas Eastern Corporation 


Richard G. Segers 
Exxon Corporation 


Gerald W. Singletary 

Texas Eastern Corporation 

James K. Walters 

American Petroleum Institute 

Karen I. West 

Mobil Research and Development 
Corporation 

L. D. Wiener 

Mobil Research and Development 
Corporation 

Gael Williams (now retired) 

Standard Oil Company of California 


E. K. Van Horne 
Mobil Oil Corporation 
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Chapter 11—Physical Properties Data 


SECTION 1—VOLUME CORRECTION FACTORS 


11.1.5 TABLES 5A and 5B—Correction of 
Observed API Gravity to API Gravity 
at 60°F 


TABLES SA and SB give values of API gravity for a 
fluid at 60°F corresponding to API gravities of that fluid 
at temperatures other than 60°F. It is assumed that the 
observed gravities are obtained with a glass hydrom- 
eter. The gravity measurements at temperatures other 
than 60°F require two corrections: the first is for the 
change in volume of the glass hydrometer with tempera- 
ture and the second is for the change in the volume of 
the fluid with temperature. The first correction is neces- 
sary because the glass hydrometers are calibrated for 
60°F. Both corrections are applied in this table. 

The data are represented by two tables to maximize 
accuracy while maintaining convenience of use: 


TABLE 5A_ Generalized Crude Oils 
TABLE 5B_ Generalized Products (see Volume IT) 
The development and intended use of these tables is 


described in 11.1.6. The parameters Ky and K, can be 
found in 11.1.6.7.1 (see Volume III). 


The limits of these tables are illustrated in Figures 
X-1 and X-2. 


Data Range 


11.1.5.1 TABLE 5A—GENERALIZED CRUDE OILS, 
CORRECTION OF OBSERVED API 
GRAVITY TO API GRAVITY AT 60°F 


TABLE SA gives the values of API gravity at 60°F 
corresponding to an API hydrometer reading at ob- 
served temperatures other than 60°F. In converting the 
API hydrometer reading at the observed temperature 
to the corresponding API gravity at 60°F, two correc- 
tions are necessary: the first arises from the change in 
volume of the glass hydrometer with temperature (stem 
correction) and the second from the change in volume 
of the crude oil with temperature. Both have been ap- 
plied in this table. The values of API gravity at 60°F in 
this table are the result of a computer procedure which 
is the Standard (see 11.1.5.2 and 11.1.5.3). 

The temperature ranges of this table are: 


°API °F 
Oto 40 0 to 300 
40 to 50 0 to 250 
50 to 100 0 to 200 


The values of API gravity at 60°F given in this table 
are based on data from the U.S. National Bureau of 
Standards and from other published data. Portions of 
the gravity and temperature ranges represent areas be- 
yond these data. Thus, mathematical techniques were 


0 40 50 55 100 


Gravity ° API 


Figure X-1 — Data Limits for TABLE 5A 


X-1 
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250 
Temp 
°F 200 > 
160 LEZ Exirapolated 
: 0 40 50 85 
Gravity ° API 
Figure X-2 — Data Limits for TABLE 5B 

employed to extrapolate beyond the gravity and tem- This table must be entered with an API 
perature ranges of the given data to determine the value hydrometer reading measured with a soft glass 
of API gravity at 60°F for these areas. These values are hydrometer calibrated at 60°F and with an ob- 
denoted by an asterisk (*). Extension of the table be- served temperature. 
yond the ranges shown is not recommended. A correction to the glass hydrometer reading 

Increments used in this table for determining API has been incorporated into the table to account 
gravity at 60°F are 0.5°F and 0.5°API. Interpolation for the thermal expansion of glass. The hydrom- 
with temperature is not intended since there is no prac- eter constant, as defined in the Report on the De- 
tical method of interpolation that will produce the ac- velopment, Construction, Calculation, and Prep- 
curacy obtainable from the Standard. However, inter- aration of the ASTM-IP Petroleum Measurement 
polation with gravity to one additional significant digit Tables (1960), varies with temperature according 
can be reasonably made. Interpolation is not required if to the following: 
the TABLE SA results are to be used as entries to HYC = 1 — 0.00001278 (t — 60°F) 
TABLE 6A. — 0.0000000062 (t — 60°F) 


11.1.5.2 PROGRAM DOCUMENTATION FOR SUBROUTINE TAB5A— 
GENERALIZED CRUDE OILS, CORRECTION OF OBSERVED API 


GRAVITY TO GRAVITY AT 60°F 
ABSTRACT 
Subroutine Title: TABSA - TABLE 5A, Generalized Crude Oils, APTI 


Gravity Correction to 60 °F. 


Description: This subroutine is designed to calculate the APT 
gravity at 60 °F corresponding to API gravities 
observed at temperatures other than 60 °F. 
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Program Responsibility: American Petroleum Institute 
Measurement Coordination 
2101 L Street N.W. 
Washington, D.C. 20037 


Date Issued: August 1980 
Language: FORTRAN, ANSI/ASA Standard 
Reference: API Standard 2540, TABLE 6, 11.1.6 


THIS SUBROUTINE WAS DEVELOPED USING THE MATHEMATICAL ALGORITHMS 
AND SPECIFICATIONS DESCRIBED IN THE DOCUMENT PROCEDURE 11.1.5.3. 
ANY MODIFICATION TO THIS SUBROUTINE MUST RIGIDLY ADHERE TO THE 
SAME ALGORITHMS AND SPECIFICATIONS. 


11.1.5.2.1 Introduction 


TAB5A is a computer subroutine designed to calculate for substances 
characterized as crude oil the value of API gravity at 60 degrees 
Fahrenheit (°F) corresponding to API gravities observed at temperatures 
other than 60 °F. ‘The subroutine accepts as input the observed API 
gravity rounded to the nearest 0.1 °API and the temperature rounded to the 
nearest 0.1 °F. If either input value has not been properly rounded, the 
subroutine will round the values and return the corrected values. The 
subroutine returns the value of the API gravity at 60 °F rounded to the 
nearest 0.1 and a status flag for user convenience. The flag is set to -l 
if an error condition occurs and to +1 if the value of the API gravity at 
60 °F is an extrapolation. The limits of the correlation including the 
extrapolated region are depicted in Figure X-l. The calling program must 
check the flag and provide user with appropriate warning message or 
program termination. The flag is set to zero when the input variables and 
the API gravity at 60 °F are within the limits of the correlation. 
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11.1.5.2.2 Subroutine Specifications 


The range of application is: 


SAPT Temperature, °F 

0 to 40 0 to 300 
40.1 to 50 0 to 250 
50.1 to 100 0 to 200 


Referenced modules: ALF5A, DIV5A, MPY5A, RHOSA, VCF5A 


FORTRAN functions: FLOAT, IABS 


Average execution time: 625 entries/CPU second 
IBM 370/168 


The subroutines are written in ANSI/ASA FORTRAN using integer arithmetic. 
The size and storage requirements are: 


1. Compilable source statements 126 
2. Decimal storage bytes 3676 
3. Words 919 


11.1.5.2.3 | Calling Sequence 


CALL TAB5A (API, DEGF, IHYDRO, API60, IFLAG) 
INPUT DESCRIPTION 


API ~ API gravity at observed temperature 
(API returned will be rounded to nearest 0.1 °APT) 


DEGF -—- Observed temperature, °F 
(DEGF returned will be rounded to nearest 0.1 °F) 


IHYDRO - Hydrometer switch 
0: The API gravity was observed with a glass hydro- 
meter and a hydrometer correction is needed 
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1: The API gravity was determined from an on-line 
densitometer and a hydrometer correction is not 


needed. 


OUTPUT DESCRIPTION 


API60 — Corresponding API gravity at 60 °F rounded to nearest 0.1 °API 


IFLAG - Status Code 
0: Indicates input variables and calculated results are 
within the range of application 
l: Indicates input variables are in extrapolated region’ 
-l: Indicates input variables or calculated results are 
outside the range of application 


NOTE: If a non-convergence occurs, the subroutine prints the following 


message: 


AT XXX.X% DEGREES F AND XXX.X DEGREES API, A CORRESPONDING 
APT AT 60 F COULD NOT BE DETERMINED. 


This message should not occur unless the code has been altered or 
incorrectly reproduced. Follow Section 11.1.5.3, Implementation 
Procedure, and test the subroutine exactly as described. The 
status flag will be set to -1, API60 to -99.9, and program control 
returned to the calling routine. 


11.1.5.2.4 Method of Calculation 


This subroutine uses a convergence technique to determine the API gravity 
at 60 °F that corresponds to an API gravity dbserved at some temperature 
other than 60 °F. Since the equations are expressed in terms of density, 
the API gravity is converted to density by the following relationship: 


_ 141.5 * 999.012 
Pe 131.5 + API 
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where a= density at temperature t 


API = observed API gravity 
999.012 = density of water at 60 °F, Ke/m? 


The coefficient of thermal expansion at the base temperature, 60 °F, 


is related to the density at the base temperature by 


K K 
0 bi 1 


60 


The values of P. and Xo are used in the volume correction factor 


equation to compute P6Q° 


p 
t 
1 EXP[~a¢9ht (1 + 0-BasqAt)] 
60 
Thus 9, = ¢) EXP [tgp At + 9.8a¢ At) ] 
Where 60 = density at the base temperature 


At = t - 60.0 


Since the equation for Pee cannot be solved explicitly, a successive 
approximation iterative scheme is used to obtain a solution. The initial 
estimate of Peo is the value of the density at observed temperature t. 
This approximation is substituted into the right hand side of the equation 
to obtain a second value approximation. This process of substituting into 
the right hand side of the equation and estimating a new value from the 
other is repeated until two consecutive results are in agreement to the 
desired degree of accuracy. In subroutine TABSA, a converged solution is 
reached when the change in density is less than 0.05 Kg/m? in two 


successive passes. 


A full explanation of the equations and the values of the parameters 
Kg and Kj may be found in API Standard 2540, TABLE 6, 11.1.6. 


Copyright por American Petroleum Institute 
Mon Feb 07 13:41:52 2005 


API MPMS*¥1L1-1 VOL*¥X 460 MM O73e290 0525473 eTb 


SECTION 1—VOLUME CORRECTION FACTORS X-7 


11.1.5.2.5 Examples 


These examples are tutorial in nature and are not intended to be suffi- 
cient for subroutine checkout. The examples given in the Implementation 
Procedure, Section 11.1.5.3, are to be used for the computer checkout. 


Example 1 
API = 30.02 (observed with a glass hydrometer) 
DEGF = 248.0 
IHYDRO = 0 


CALL TAB5A (API ,DEGF,IHYDRO ,API60 , IFLAG) 


After the call: API = 30.0 
DEGF = 248.0 
IHYDRO = 0 
API60 = 18.5 
IFLAG = 0 


Example 2 
API = 88.0 (observed with a glass hydrometer) 
DEGF = 184.0 
THYDRO = 0 


Call TAB5A (API ,DEGF, HYDRO ,API60 , IFLAG) 


After the call: API = 88.0 
DEGF = 184.0 
THYDRO = 0 
API60 = 69.2 
IFLAG = 1 
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API = 43.0 (observed with a glass hydrometer) 
DEGF 273.0 
THYDRO 0 


Call TAB5A (API ,DEGF,IHYDRO,API60 , IFLAG) 


After the call: API = 43.0 
DEGF = 273.0 
THYDRO = 0O 
API60 = -99.9 
IFLAG = -l 
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11.1.5.2.6 FLONCHART 


INPUT: API GRAVITY 
OBSERVED TEMPERATURE 


ROUND INPUT DATA 
TO SPECIFICATIONS 


OATA WITHIN SET STATUS FLAG = -1 
BOUNDS OF 


CORRELATION 


NO 


AND API GRAVITY AT 6O°F = ~99.9 
RETURN 


YES 


CALCULATE DELTA T 


CONVERT API GRAVITY TO DENSITY 


NEED 
HYDROMETER 
CORRECTION 


NO 


COMPUTE HYOROMETER CORRECTION 


APPLY HYDROMETER CORRECTION TO DENSITY 


INITIALIZE 60°F DENSITY 
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CALCULATE ALPHA 
CALCULATE VCF 


CALCULATE NEW 
60°F DENSITY 


CHECK FOR 
CONVERGENCE 


YES 


60°F DENSIT 
WITHIN LIMITS 


SET STATUS FLAG = -} 


NO AND API GRAVITY AT GO"F = -99.8 
RETURN 


CALCULATE API GRAVITY AT 60°F 


YES SET STATUS FLAG = 1 
RETURN 


API IN 
EXTRAPOLATED 
REGION 


NO 


SET STATUS FLAG = 0 
RETURN 


Copyright por American Petroleum Institute 
Mon Feb 07 13:41:52 2005 


API MPMSxLL-2 VOL*X 80 MM 0732290 0525877 94] 


SECTION 1—VOLUME CORRECTION FACTORS 


11.1.5.2.7 Subroutine Listing 


TAB5A ‘This subroutine accepts API gravity and the observation 
temperature and determines the corresponding API gravity at 
60 °F for Generalized Crude Oils. 


Referenced Modules 


ALF5A ‘This module calculates the coefficient of thermal expansion 


needed to determine a volume correction factor. 


DIV5A This module is designed to produce additional accuracy from an 
integer divide. 


MPYSA This module is designed to produce additional accuracy from an 
integer multiplication. 


RHOSA This module uses an API gravity to calculate a density value. 


VCF5A This module calculates a volume correction factor. 


SUBROUTINE TAB5A(API , DEGF , IHYDRO, API60, IFLAG) 


(CG) COPYRIGHT 1980 
AMERICAN PETROLEUM INSTITUTE 
ALL RIGHTS RESERVED 


THIS SUBROUTINE IS A VOLUNTARY STANDARD AND WAS DEVELOPED 
UNDER THE AUSPICES OF THE JOINT API-ASTM COMMITTEE ON STATIC 
PETROLEUM MEASUREMENT IN PART FROM DATA GENERATED BY A 
PROJECT FUNDED BY THE AMERICAN PETROLEUM INSTITUTE AT THE 
U.S. NATIONAL BUREAU OF STANDARDS, GAITHERSBURG, MARYLAND. 


INQUIRIES CONCERNING ITS APPLICATION SHOULD BE ADDRESSED TO: 


AMERICAN PETROLEUM INSTITUTE 
MEASUREMENT COORDINATION 
2101 L STREET, N.W. 
WASHINGTON, DC 20037 


eonnqangnnnadaaagqnqgqnqnaaana 
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C 5A000190 
Cc He she ae 2ie ae ake ake ke he ke aie ae fe Me aie ae ae ae ae ae ak ke Ae He oie ae ae ae eae ee oe aie ae ake ae Oe ole ae aie Oe He oie ae NE Sie Oe aE Oe Oe ie ke aie Ne ae ake ok Ne oe oe ole ae ole ae 5A000200 
c * * 54000210 
C * THIS SUBROUTINE OR THE MATHEMATICAL RELATIONSHIPS * 54000220 
c * REPRESENTED THEREBY MAY BE USED BY ANYONE WISHING * 64000230 
c * TO DO SO, BUT THE AMERICAN PETROLEUM INSTITUTE, THE * §A000240 
C * AMERICAN SOCIETY FOR TESTING AND MATERIALS, AND THE * §A000250 
C * INSTITUTE OF PETROLEUM AND THEIR RESPECTIVE MEMBERS AND * 5A000260 
Cc * THE U.S. NATIONAL BUREAU OF STANDARDS, SHALL NOT BE HELD  * 5A000270 
C * RESPONSIBLE OR LIABLE IN ANY WAY FROM LOSS OR DAMAGE, * 54000280 
C * INCLUDING, BUT NOT LIMITED TO, CONSEQUENTIAL DAMAGE, * 5000290 
C * RESULTING FROM SUCH USAGE OR FOR VIOLATION OF ANY FEDERAL, * 54000300 
iC * STATE, OR MUNICIPAL LAWS, REGULATIONS OR PRACTICES OF THE * 5A000310 
C * UNITED STATES OR OF ANY FOREIGN COUNTRY. * 54000320 
C 5 * 54000330 
Cc He He Hee ae ee Hee He ae oe ae ate fe ae le ae ae ae ale te ae ae Ae ake oye ale ae ke ale ae ale ale He oe ale oie ae ae ae ae oe oie oie ae Ne ate Me oe Me fs ok ale ae ale ale ake fe ale ole ok ake oe ak 5A000340 
c 5A000350 
C PURPOSE 5A000360 
C 54000370 
C THIS SUBROUTINE IS DESIGNED TO ACCEPT AS INPUT API GRAVITY 5A000380 
C VALUE (API) AT OBSERVED TEMPERATURE (DEGF) IN DEGREES FAHRENHEIT5A000390 
C AND PRODUCE THE CORRESPONDING API GRAVITY VALUE (API60) AT 5A000400 
c 60 DEGREES FAHRENHEIT FOR TABLE 5A, GENERALIZED CRUDE OILS. 5A000410 
c THE USE OF A GLASS HYDROMETER CORRECTION IS OPTIONAL. 5A000420 
C 54000430 
C EXTERNAL FUNCTIONS OR SUBPROGRAMS 5A000440 
C 5A000450 
C ALF5A, DIVSA, MPY5A, RHOSA, VCF5A 54000460 
c FORTRAN FUNCTIONS: FLOAT, IABS 5000470 
C 5A000480 
C DESCRIPTION OF PARAMETERS 5A000490 
C 5A000500 
C API - API GRAVITY AT OBSERVED T, NEAREST 0.1 DEG API (IN) 5A000510 
C (PROGRAM WILL ROUND API TO THE NEAREST 0.1 5A000520 
C DEG API AND RETURN THE ROUNDED VALUE. ) 5000530 
C DEGF - OBSERVED TEMPERATURE, NEAREST 0.1 DEG F (IN) 5A000540 
C (PROGRAM WILL ROUND T TO THE NEAREST 0.1 5A000550 
c DEG F AND RETURN THE ROUNDED VALUE. ) 5A000560 
c IHYDRO - APPLICATION OF GLASS HYDROMETER CORRECTION (IN) 5A000570 
C 0 - HYDROMETER CORRECTION IS TO BE MADE 5A000580 
C 1 - HYDROMETER CORRECTION IS NOT TO BE MADE 5A000590 
c API60 - CORRESPONDING API GRAVITY AT 60 DEGREES F (OUT)  5A000600 
c (ROUNDED TO THE NEAREST 0.1 DEG API) 5A000610 
c IFLAG - STATUS CODE (OUT)  5A000620 
c 0 - INPUT AND CALCULATED RESULTS IN CORRELATION LIMITS 5A000630 
C 1 - INPUT OR CALCULATED RESULTS IN EXTRAPOLATED REGION 5A000640 
C -1 - INPUT OR CALCULATED RESULTS NOT WITHIN LIMITS OF — 5A000650 
C CORRELATION 5A000660 
c 5A000670 
C BASE TEMPERATURE (60 DEGREES F) 5A000680 

DATA IBASE / 600 / 5A000690 
C UPPER AND LOWER DENSITY LIMITS (0, 100 APT) 5A000700 

DATA LIM1, LIM2 / 1074982, 610627 / 5A000710 
C BREAK POINTS FOR API RANGES ( 40 AND 50 API) 54000720 

DATA IBP1, IBP2 / 400, 500 / 5000730 
C UPPER API LIMIT OF CORRELATION (100 API) 5A000740 

DATA NBP1 / 1000 / 5A000750 
c MAXIMUM TEMPERATURES AT EACH BREAK POINT (300,250, 2005A000760 
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DATA ITMP1, ITMP2, ITMP3 / 3000, 2500, 2000 / 


X-13 


5A000770 


BEGINNING OF TEMPERATURE EXTRAPOLATIONS (250,200,1505A000780 


DATA IEP1, IEP2, IEP3 / 2500, 2000, 1500 / 
BEGINNING OF API EXTRAPOLATONS (55.1 - 100 DEG APT) 
DATA IEAPI / 550 / 
COEFFICIENTS FOR CRUDE OILS 
DATA KO, K1 / 3410957, O /£ 
KONST OBTAINED BY MULTIPLYING 1415 TIMES 999012 

DATA KONST / 1413601980 / 

UNIT 6 IS THE OUTPUT UNIT. IF THE OUTPUT IS TO BE DIRECTED 

TO SOME OTHER UNIT, SET NOUT TO APPROPRIATE UNIT NUMBER. 
NOUT = 6 


ROUND API TO NEAREST 0.1 
IAPI = ( (API * 100) +5 ) / 10 
API = FLOAT( IAPI ) / 10.0 

CHECK FOR NEGATIVE TEMPERATURE 
IF ( DEGF ) 900, 20, 20 

ROUND TEMPERATURE TO NEAREST 0.1 
IT = ( (DEGF * 100) + 5 ) / 10 
DEGF = FLOAT( IT ) / 10.0 


IS API LESS THAN ZERO (IF YES, BRANCH TO 900) 
IF ¢ IAPI ) 900, 40, 40 

IS API GREATER THAN 100 (IF YES, BRANCH TO 900) 
IF ( IAPI - NBP1 ) 50, 50, 900 

IS API GREATER THAN 40 (IF YES, BRANCH TO 70) 


IF ( IAPI - IBP1 ) 60, 60, 70 
IS TEMP GREATER THAN 300 (IF YES, BRANCH TO 900) 


IF ( IT - ITMP1 ) 100, 100, 900 
IS API GREATER THAN 50 (IF YES, BRANCH TO 90) 
IF ( IAPI - IBP2 ) 80, 80, 90 


IS TEMP GREATER THAN 250 (IF YES, BRANCH TO 900) 
IF ( IT - ITMP2 ) 100, 100, 900 

IS TEMP GREATER THAN 200 (IF YES, BRANCH TO 900 
IF ¢ IT - ITMP3 ) 100, 100, 900 
CONT INUE 


IFLAG = 0 
IDT = IT - IBASE 

CONVERT API TO DENSITY 
CALL RHOS5A(TAPI , IRHOT } 


IS HYDROMETER CORRECTION TO BE USED (IF NO, BRANCH TO 140) 
IF ( IHYDRO ) 101, 101, 140 


COMPUTE HYDROMETER CONSTANT AT DELTA T 


HYC = 1. - .00001278*(DEGF-60) - .0000000062*(DEGF-60)**2 
IRD = 50 
IF (IDT) 105, 110, 110 
IRD = -50 
IH1 = (127800 * IDT + IRD) / 100 
IH2 = (62 * IDT * IDT + 500) / 1000 


IHYC = 1000000000 - IH1 - IH2 
APPLY HYDROMETER CONSTANT TO DENSITY AT TEMPERATURE T 
IRHO = IRHOT * 10 
CALL MPYS5A(IRHO, IHYC, IRHOT , 10000) 
IRHOT = ( IRHOT + 50 ) ¢ 100 
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§A001110 
5A001120 
§A001130 
5A001140 
5A001150 
5A001160 
5A001170 
5A001180 
5A001190 
5A001200 
5A001210 
5A001220 
5A001230 
5A001240 
5A001250 
5A001260 
5A001270 
5A001280 
5A001290 
5A001300 
§A001310 
5A001320 
§A001330 
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Cc 5A001340 
Cc 5§A001350 
140 JRHOT = IRHOTF * 10000 5A001360 
Cc 5A001370 
IRHO60 = IRHOT 5A001380 
Cc 5A001390 
KRHO = 0 5A001400 
Cc 5A001410 
NP = 0 5A001420 
Cc 5A001430 
300 NP = NP + 1 5A001440 
CG 54001450 
CALL ALF5A(TIRHO60 ,KO,K1,IALF) 5A001460 
Cc 5A001470 
CALL VCFSA(IALF,IDT, IVCF) 5A001480 
Cc 5A001490 
IVCF = ( IVCF + 50 ) / 100 5A001500 
Cc 5A001510 
CALL DIV5A(JRHOT , IVCF , IRHO60 , 1000) 5A001520 
Cc 5A001530 
Cc 5A001540 
IF ¢( IABS (IRHO60 - KRHO ) - 50 ) 500, 320, 320 5A001550 
Cc 5A001560 
320 KRHO = IRHO60 5A001570 
Cc 5A001580 
IRHO6GO = ( IRHO6G0 + 5 ) / 10 5A001590 
Cc 5A001600 
IF ¢« NP - 20 ) 300, 400, 400 5A001610 
Cc 5A001620 
400 IFLAG = -1 5A001630 
API60 = -99.9 5A001640 
WRITE (NOUT,6001) DEGF, API 5A001650 
6001 FORMAT(5H1 AT ,F5.1,15H DEGREES F AND ,F5.1, 66H DEGREES API, A5A001660 
1 CORRESPONDING API AT 60 F COULD NOT BE DETERMINED. ) 5A001670 
RETURN 5A001680 
Cc 5A001690 
Cc IS DENSITY GREATER THAN UPPER LIMIT (IF YES, BRANCH TO 900) 5A001700 
500 IF (IRHO6O - LIM1) 510, 510, 900 5A001710 
Cc IS DENSITY LESS THAN LOWER LIMIT (IF YES, BRANCH TO 900) 5A001720 
§10 IF (IRHO6O0 - LIM2) 900, 520, 520 5A001730 
520 IRHO60 = ( (IRHO60 + 5) / 10 ) 5A001 740 
IAPI60 = KONST / IRHO60 - 13150 5A001 750 
Cc INTEGER VALUE TIMES 10 5A001760 
IAPI60 = ( IAPI60 + 5 ) / 10 5A001770 
Cc FLOATING POINT VALUE ROUNDED TO NEAREST TENTH 5A001 780 
API60 = IAPI60 * .1 5A001 790 
Cc IS API GREATER THAN 55 (IF NO, BRANCH TO 770) 5A001800 
IF ¢( IAPI - IEAPI ) 770, 770, 760 5A001810 
Cc SET SWITCH INDICATING EXTRAPOLATION REGION §A001820 
760 IFLAG = 1 5A001830 
RETURN 5A001840 
Cc IS API GREATER THAN 40 (IF YES, BRANCH TO 790) 5A001850 
770 IF ¢ IAPI - IBP1 ) 780, 780, 790 5A001 860 
Cc IS TEMP GREATER THAN 250 (IF YES, BRANCH TO 760) 5A001870 
780 IF ( IT - IEP1 ) 820, 820, 760 5A001 880 
c IS API GREATER THAN 50 (IF YES, BRANCH TO 810) 5A001890 
790 IF ( IAPI - IBP2 ) 800, 800, 810 5A001900 
Cc IS TEMP GREATER THAN 200 (IF YES, BRANCH TO 760) 5A001910 
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800 IF ( IT - IEP2 ) 820, 820, 760 5A001920 

Cc IS TEMP GREATER THAN 150 (IF YES, BRANCH TO 760 §A001930 
810 IF ¢ IT - IEP3 ) 820, 820, 760 5A001940 

C 5A001950 
820 CONTINUE 5A001960 
RETURN 5§A001970 

Cc SET SWITCH INDICATING OUTSIDE RANGE OF TABLE 5A 5A001980 
900 IFLAG = -1 5§A001990 
API60 = -99.9 §A002000 
RETURN 5A002010 

END 5A002020 
SUBROUTINE RHOS5A(IAPI , IRHO) §A002030 

Cc 5A002040 
Cc THIS SUBROUTINE IS DESIGNED TO CALCULATE A DENSITY 5A002050 
Cc VALUE FOR A GIVEN VALUE OF API BY THE FORMULA 5A002060 
Cc RHO=1 41 .5*999.012/(API+131.5) 5A002070 
Cc IT IS ASSUMED THAT THE API VALUE HAS BEEN ROUNDED 5A002080 
Cc TO THE NEAREST TENTH DEGREE API AND THE VALUE MULTIPLIED §A002090 
Cc BY 10. THE OUTPUT VALUE OF RHO WILL BE RETURNED §A002100 
Cc AS AN INTEGER AND ROUNDED TO THE NEAREST HUNDREDTH 5A002110 
Cc KILOGRAM/CUBIC METRE. §A002120 
Cc 5A002130 
Cc THE VALUE 1413601980 REPRESENTS 141 .5*999.012*10000 5A002140 
Cc CORRECT TO 10 DIGITS 5A002150 
IDENOM=IAPI+1315 5A002160 
IRHO=(1413601980/IDENOM+5 )/10 5A002170 
RETURN 5A002180 

END 5A002190 
SUBROUTINE DIV5AC(INUM, IDENOM, IRES, ISCALE) 5A002200 

Cc 5A002210 
C THIS SUBROUTINE IS DESIGNED TO PRODUCE ADDITIONAL 5A002220 
Cc ACCURACY FROM AN INTEGER DIVIDE WHERE THE NUMERATOR 5A002230 
Cc IS ISCALE GREATER THAN THE DENOMINATOR. THE SUBROUTINE §A002240 
Cc ASSUMES PROPER SCALING OF BOTH THE INPUT NUMERATOR §A002250 
Cc! AND DENOMINATOR AND WILL RETURN THE RESULTS MULTIPLIED §A002260 
C BY ISCALE. 5A002270 
Cc 5A002280 
IRES1=INUM/ IDENOM 5A002290 
IRES2=( INUM- IRES1 * IDENOM) * ISCALE / IDENOM §A002300 
IRES=IRES1 *ISCALE+IRES2 5A002310 
RETURN 5A002320 

END 5A002330 
SUBROUTINE ALF5A(IRHO,KO,K1,IALF) 5A002340 

c 5A002350 
Cc THIS SUBROUTINE IS DESIGNED TO CALCULATE ALPHA FOR 5A002360 
Cc USE IN DETERMINATION OF VOLUME CORRECTION 5A002370 
Cc FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE AS INTEGERS, 5A002380 
Cc THE SUBROUTINE RETURNS WITH A 7 DIGIT VALUE ( . OOXXXXX) 5A002390 
c 5A002400 
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c INPUT VARIABLES 5A002410 
Cc IRHO=DENSITY*100 (KILOGRAMS/CUBIC METRE) §A002420 
c KO ,K1= COEFFICIENTS OF DESIRED CURVE * 10000 5A002430 
Cc 5A002440 
Cc ALGORITHN - 5A002450 
Cc ALPHA=KO /RHO* *2+K1/RHO 5A002460 
Cc 5A002470 
Cc CALCULATE K1/RHO 5A002480 
Cc 5A002490 
INUM=K1i #10000 §A002500 
CALL DIVS5A(INUM, IRHO, IALF1 ,10000) 5A002510 
Cc 54002520 
Cc CALCULATE KO/RHO**2 5A002530 
Cc 5A002540 
INUM=K0*100 5A002550 
CALL DIVSA(INUM, IRHO, IALFS,10000) 5A002560 
CALL DIV5ACIALFS, IRHO, IALF2,10000) 5A002570 
TALF=( IALF1+IALF2+500 )/1000 5A002580 
RETURN 5A002590 
END 5A002600 
SUBROUTINE VCF5A(IALF ,IDT, IVCF) §A002610 
Cc 5A002620 
Cc THIS SUBROUTINE IS DESIGNED TO CALCULATE VOLUME §A002630 
Cc CORRECTION FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE 5A002640 
Cc AS INTEGERS, THE SUBROUTINE RETURNS WITH A 8 5A002650 
CG OR 9 DIGIT VALUE DEPENDENT UPON WHETHER IDT 5A002660 
Cc IS POSITIVE OR NEGATIVE. 5A002670 
C 5A002680 
Cc ALGORITHM - 5A002690 
CG VGF=EXP( -ALPHA*DT(1.0+0.8*ALPHA*DT) ) 5A002700 
Cc 5A002710 
Cc CALCULATE ALPHA*DT 5A002720 
Cc 5A002730 
ITERM1=1ALF*IDT 5A002740 
Cc 5A002750 
Cc CALCULATE 0.8*ALPHA*DT 5A002760 
Cc 5A002770 
ITERM2=ITERM1 /5*40 5A002780 
Cc 5A002790 
C CALCULATE EXPONENT -ALPHA*DT(1.0+0.8*ALPHA*DT ) 5A002800 
Cc 5A002810 
CALL MPYSA(ITERM1 , ITERM2 , ITERM3, 1000) 5A002820 
ITERM3 = ( ITERM3 + 500 ) / 1000 5A002830 
IX= -ITERM1 - ITERMS3 5A002840 
Cc 5A002850 
Cc CALCULATE EXPONENTIAL(FIRST 7 TERMS OF POWER SERIES) 5A002860 
Cc 5§A002870 
ISUM1=100000000+IX 5A002880 
CALL MPY5A(IX,1IX, ISUM2 , 1000) 5A002890 
ISUM2=( (ISUM2+50)/100)/2 5A002900 
CALL MPY5A(IX, ISUM2 , ISUM3 , 1000) 5A002910 
ISUM3=( (ISUM3+50)/100)7/3 5A002920 
CALL MPY5A(IX, ISUM3 , ISUM4 , 1000) 5A002930 
ISUM4=( (ISUM4+50)/100)/4 5A002940 
CALL MPY5A( IX, ISUM4 , ISUM5, 1000) 5A002950 
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ISUM5=( (ISUM5+50)/100)/5 5A002960 
CALL MPY5A( IX, ISUM5 , ISUM6, 1000) 5A002970 
ISUM6=( (ISUM6+50)/100)/6 5A002980 
IVCF=1SUM1+1SUM2+1ISUM3+ISUM4+1ISUM5+I SUM6 5A002990 
RETURN 5A003000 
END 5A003010 
SUBROUTINE MPY5A(IX,1Y,1Z, ISCALE) 5A003020 
Cc THIS ROUTINE PERFORMS INTEGER MULTIPLICATION. THE TOTAL 5A003030 
Cc NUMBER OF DIGITS IN IX AND IY MUST NOT EXCEED 17. OTHER 5A003040 
Cc WISE, OVERFLOW WILL OCCUR. 5A003050 
Cc 5A003060 
IU1 = IX / ISCALE 5A003070 
Ki = ISCALE * IU1 §A003080 
Ivi = IX - K1 5A003090 
IU2 = IY / ISCALE 5A003100 
K2 = ISCALE * IU2 5A003110 
Iv2 = IY - K2 §A0031 20 
K3 = Iu1 * IV2 + IU2 * Ivi + IV1 * Iv2 / ISCALE §A003130 
IZ = (K3 + ISCALE/2) / ISCALE + IU1 * IU2 5A003140 
RETURN 5§A003150 
END 5A003160 


11.1.5.3 IMPLEMENTATION PROCEDURE FOR SUBROUTINE TABSA 


The use of the computer has gained widespread acceptance throughout the 
petroleum industry. Computers are used for accounting purposes, in 

process simulation and modeling, data retrieval and evaluation, and are 

now being used extensively in custody transfer measurements and trans-~ 
actions. In 1968, the American Petroleum Institute recognized the need 

for incorporating existing petroleum measurement tables into computer 

code. In June of 1973, a subroutine for TABLE 6, Volume Reduction to 60 °F, 
was made available. Since then many of the other standardized petroleum 


measurement tables have been made available as computer subroutines. 


However, the computerization of an existing table of numbers proved to ke 
a very difficult task. For instance, it proved to be impossible to use 
the mathematical expression that was supposedly used to generate the table 
values and calculate values identical to the tabular entries. This was 
because some of the values entered into the tables had been slightly 
modified and also because the procedures used to round the calculated 


values were inconsistent. 
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The only way to overcome these problems in a computer subroutine was to 
manually locate all the table entries that did not agree with the cal- 
culated values and add extensive "exception tables" to the code. This 
made the code lengthy and somewhat cumbersome to modify and to some extent 
restricted its use to larger computing systems. 


The working group for TABLE 6 revision realized the importance of elimi- 
nating any potential for such problems in the future and also recognized 
the med to have computer subroutines available at the time the new 
petroleum measurement tables were released. The working group decided to 
outline an explicit implementation procedure to be followed when using the 
new correlation for volume correction factors. This implementation 
procedure would then be the Standard rather than a set of equations or set 
of tables. Standardization of an implementation procedure implies 
standardization of the set of mathematical expressions used within the 
computer code. Absolute adherence to the outlined procedure will insure 
that all computers and computer code of the future, meeting the stated 
specifications and restrictions, will be able to produce identical 
results. Such a procedure allows for the maximum machine and code 


independence. 


The implementation procedure as described in the following text can by 
careful and deliberate application of numerical analysis be followed 
through the majority of language and word sizes in present and anticipated 
use. To follow the standard procedure means absolute and unwavering 
adherence to the number of digits specified at each step and to the 


calculational procedure as outlined. 


In the procedure, the nomenclature digits (XXX.XX) means mathematically 
significant digits as defined in ASTM F380-76. In the previous example, 
all five (5) digits in the parenthesis are mathematically significant. 


At various steps in the implementation procedure, calculated results are 
rounded or truncated. When rounding a result to fewer digits than the 
total number available, the following procedure which was used overrides 
that of ASTM E380-76: 
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a) when the first digit to be discarded is less than 5, the last digit 
retained is not changed. 
b) when the first digit to be discarded is greater than 4, the last 


digit retained is increased by one unit. 


The procedure used in truncating a result to fewer digits than the total 
number available is to simply discard all digits following the last digit 
to be retained and leaving the last retained digit unchanged. 


Another specification is that the coefficients used to relate the thermal 
expansion coefficient at 60 °F to the 60 °F density base and all other 
constants needed in the correlation must be used to exactly the number of 
digits specified. 


Calculation Procedure 


Step 1: Round input variables 
a) Round API gravity to nearest 0.1 
API = XXX.X rounded 
b) Round observed temperature to nearest 0.1 
T = XXX.X rounded 


Step 2: Calculate difference in observed temperature and 
base temperature 
BASE TEMPERATURE = 60.0 
DELTA = XXX.X — 60.0 = XXX.X 


Step 3: Compute hydrometer correction term (optional) 
HYC = 1.0 - .00001278*DFLTA - .0000000062*DELTA2 
TERM] = .00001278*DELTA = .OOXXXXXXX rounded 
TERM2 = .0000000062*DELTA2 = .0OO0XXXXXX rounded 
HYC = 1.000000000 - .OOXXXXXKX - .OOOXXXXXX = X.XXXXXXXXX 


Step 4: Convert API gravity to density, Kg/m3 
RHO = (141.5*999.012)/(131.5+API) 
RHO = 141360.1980/XXX.X = XXXX.XX rounded 


Copyright por American Petroleum Institute 
Mon Feb 07 13:41:54 2005 


API MPMS*¥11.1 VOL*X 60 MM O732290 0525866 954 


X-20 CHAPTER 11—PuysicaL Properties DATA 


Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = XXXX.XX rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = XXXX.XX 


Step 6: Calculate coefficient of thermal expansion 

ALPHA = Kg/RHO602 + Kj/RHO60 
Ko = XXXX.XXXX 
Ky = .XXXX 
TERM] = Ko/RHO60 = .XXXXXXXX truncated 
TERM2 TERM] /RHO60 = .OOXXXXXXKXX truncated 
TERM3 = K)/RHO60 = .OOXXXXXXXX truncated 

ALPHA = TERM2 + TERM3 = .Q0OXXXX rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA*DELTA - 0.8*ALPHA2*DELTA2) 

a) calculate exponent 
TERM] = ALPHA * DELTA = .XXXXXXXX truncated 
TERM2 = 0.8 * TERM] = .XXXXXXXX truncated 
TERM3 = TERM] * TERM2 = .XXXXXXXX rounded 
TERM4 ~ TERM] — TERM3 = .XXXXXXXX 

b) calculate exponential 
VCF = EXP(TERM4) = X.XXXXXX rounded 
(Must use at least the first seven terms of 


the power series expansion.) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = XXXX.XXXK truncated 


Since the equation for P60 cannot be solved explicitly, a successive 
approximation iterative scheme is used to obtain a solution. ‘The initial 
estimate of P69 is the value of the density at observed temperature t. 
This approximation is substituted into the right hand side of the equation 
to obtain a second value approximation. This process of substituting into 
the right hand side of the equation and estimating a new value from the 
other is repeated until two consecutive results are in agreement to the 
desired degree of accuracy. In subroutine TAB5A, a converged solution is 
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reached when the change in density is less than 0.05 Kg/m? in two 


successive passes. 


The 1980 integer FORTRAN code issued by API contain both an integer 
division and an integer multiplication algorithm. A description of each 


follows. 


INTEGER MULTIPLICATION PROCEDURE 
(For 32 Bit Arithmetic) 


DATA DEFINITION 

X,Y are integer numbers that are equal to or less than 2*109 (slightly 
less than 231) . A larger value may cause overflow. In addition, the 
total number of digits in X and Y must not exceed 17, otherwise overflow 
will occur. Z is the product (X*Y) scaled by 1078, i.e. 2 = (x*y) /108. 


Note: If it is desirable to obtain maximum precision, X and Y may ke 
scaled up prior to use of the procedure. Typically, at least 15 digits 
are needed to obtain 6 digit precision, 16 for 7 and 17 for 8. The 
largest value of X and Y that may be used are 2 000 000 000 and 99 999 999. 
(Either values may be used for X and Y). 


CALCULATION 
¥/10000 = Ul 
10000 * Ul 
X-Kl = V1 
Y¥/10000 = U2 
10000 * U2 = k2 
Y-K2 = V2 
(U1*V2) + (U2*V1) + (V1*V2/10000) = K3 
(K3 + 5000) /10000 + U1l*U2 = Z 


il 
a 


Note: 2Z has been scaled by 10-8 and may have to be rescaled before use. 


TOTAL DIGITS INX AND Y 12 13 14 #215 16 «217 
DIGITS IN PRODUCT, 2 3-4 4-5 5-6 6-7 78 8-9 
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INTEGER DIVISION PROCEDURE 
(For 32 Bit Arithmetic) 


DATA DEFINITION 
X,Y are integer numbers such that X is equal to or less than 231 -1 and 
Y is of order of magnitude 104 less than x. 


R is the quotient of X/Y scaled by 104, i.e. R= x/y * 104. 


Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically, the more digits that 


are carried in both X and Y, the more accurate digits on output. 


CALCULATION 
X/Y = Ul 
Ul * y = Kl 
X-Kl=wv 
VI/Y = U2 
Ul * 10000 + U2 =R 


Note: R has been scaled by 104 and may need to be rescaled before use. 


Examples for Checkout 


The following examples illustrate how the implementation procedure is 
actually used to determine the value of an API gravity at 60 °F for 
Generalized Crude Oils. The examples carry the computations through each 
step of the procedure showing the results of each mathematical operation. 
The computed values are given to the required precision and it is indicated 
if a value has been rounded or truncated. The step-by-step calculations are 
shown for the first iteration then a table is presented which summarizes the 
intermediate values used to obtain a converged solution. 


These examples are to be used as test cases for subroutine TAB5A to verify 
the computer code has not been altered or incorrectly reproduced. The 
routine has been designed to execute on machines that use word size of 
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32-bits or greater. Any new development of computer code that is designed 


to follow the standard implementation procedure must insure that the values 


computed at each step in the procedure are identical to those given in the 


examples. 


EXAMPLE 1 
Step 1: 


Step 2: 


Step 3: 


Step 4: 


Step DA: 


Step 5B: 


Step 6A: 


Round input variables 

a) Round API gravity to nearest 0.1 
API = 30.0 rounded 

b) Round observed temperature to nearest 0.1 
T = 248.0 rounded 


Calculate difference in observed temperature and base temperature 
BASE TEMPERATURE = 60.0 
DELTA = 248.0 - 60.0 = 188.0 


Compute hydrometer correction term 

HYC = 1.0 - .00001278 * DELTA - .0000000062 * DELTA2 
TERM] = .00001278 * DELTA = .002402640 rounded 

TERM2 = .0000000062 * DELTA2 = .000219133 rounded 

HYC = 1.000000000 — .002402640 — .000219133 = .997378227 


Convert API gravity to density 
RHO = (141.5 * 999.012)/(131.5 + APT) 
RHO = 141360.1980/161.5 = 875.30 rounded 


Application of hydrometer correction 
RHOT = RHO * HYC = 873.01 rounded 


Initialize 60 °F density 
RHO60 = RHOT = 873.01 


Calculate coefficient of thermal expansion 
ALPHA = Kg/RHO602 + K /RHO6O 
Kg = 341.0957 (as of May 1, 1980) 
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K, = 0.0 (as of May 1, 1980) 
TERML = Kg/RHO60 
TERM] = .39071224 truncated 
TERM2 = TERML/RHO60 
TERM2 = .0004475461 truncated 
TERM3 = K1/RHO60 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0004475 rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 
a) Calculate exponent 
TERM] = ALPHA * DELTA = .08413000 truncated 


TERM2 = 0.8 * TERM] = 0.6730400 truncated 
TERM3 = TERM] * TERM2 = .00566229 rounded 
TERM4 = ~TERM1 - TERM3 = ~.08979229 


b) Calculate exponential 
VCF = EXP(TERM4) = .914121 rounded 
(must use the first seven terms of the power series 


expansion of eX) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = 955.026 truncated 


TABLE 1 shows the results of each iteration. 


TABLE 1 
ITERATION RHO60 (N) ALPHA VCF RHO60(N+1) 
L 873.01 0004475 0914121 955 .026 
2 955 .03 -0003740 °928424 940 .313 
3 940.31 -0003858 -926132 942.641 
4 942.64 -0003839 -926501 942.265 
5 942.27 -0003842 ©926443 942.324 
6 942.32 -0003841 -926462 942.305 


API60 = 141360.1980/942.31 - 131.5 = 18.5 
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EXAMPLE 2 
Step 1: Round input variables 
a) Round API gravity to nearest 0.1 
API = 72.5 rounded 
b) Round observed temperature to nearest 0.1 
T= 52.5 rounded 


Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 60.0 
DELTA = 52.5 — 60.0 = -7.5 


Step 3: Compute hydrometer correction term 


HYC = 1.0 - .00001278 * DELTA - .0000000062 * DELTA” 
TERM] = .00001278 * DELTA = -.000095850 rounded 

TERM2 = .0000000062 * DELTA* = .000000349 rounded 

H¥C = 1.000000000 + .000095850 — .000000349 = 1.000095501 


Step 4: Convert API gravity to density 
RHO (141.5 * 999.012)/(131.5 + APT) 
RHO = 141360.1980/204.0 = 692.94 rounded 


Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 693.01 rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 693.01 


Step 6A: Calculate coefficient of thermal expansion 


ALPHA = Kg/RHO60* + K1/RHO6O 
Kg = 341.0957 (as of May 1, 1980) 
Ky = 0.0 (as of May 1, 1980) 
TERML = Ko/RHO60 
TERM] = .49219448 truncated 
TERM2 = TERML/RHO60 
TERM2 = .00071022700 truncated 
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TERM3 = Kj/RHO60 

TERM3 = 0.0 

ALPHA = TERM2 + TERM3 = .0007102 rounded 

Step 7: Calculate volume correction factor 

VCF = EXP(-ALPHA * DELTA ~ 0.8 * ALPHA2 * DELTA2) 

a) Calculate exponent 
TERM] = ALPHA * DELTA = —.00532650 truncated 
TERM2 = 0.8 * TERMI = -—.00426120 truncated 
TERM3 = TERM] * TERM2 = .00002270 rounded 
TERM4 = ~TERM] — TERM3 = .00530380 

b) Calculate exponential 
VCF = EXP(TERM4) = 1.005318 rounded 
(must use the first seven terms of the power series 


expansion of e%) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = 689.344 truncated 


TABLE 2 shows the results of each iteration. 


TABLE 2 
ITERATION RHO60 (N) ALPHA VCF RHO60(N+1) 
1 693.01 «0007102 1.005318 689 .344 
2 689 .34 -0007178 1.005375 689 .304 


API60 = 141360.1980/689.30 - 131.5 = 73.6 


EXAMPLE 3 
Step 1: Round input variables 
a) Round API gravity to nearest 0.1 
API = 88.0 rounded 
b) Round observed temperature to nearest 0.1 
T= 184.0 rounded 


Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 60.0 
DELTA = 184.0 - 60.0 = 124.0 
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Step 3: Compute hydrometer correction term 


HYC = 1.0 - .00001278 * DELTA - .0000000062 * DELTA2 
TERM] = .00001278 * DELTA = .001584720 rounded 

TERM2 = .0000000062 * DELTA = .000095331 rounded 

HYC = 1.000000000 - .001584720 - .000095331 = .998319949 


Step 4: Convert API gravity to density 
RHO = (141.5 * 999.012)/(131.5 + API) 
RHO = 141360.1980/219.5 = 644.01 rounded 


Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 642.93 rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 642.93 


Step 6A: Calculate coefficient of thermal expansion 
ALPHA = Kg/RHO602 + K /RHO60 
Kg = 341.0957 (as of May 1, 1980) 
Ki = 0.0 (as of May 1, 1980) 
TERML = Ko/RHO60 
TERM] = .53053318 truncated 
TERM2 = TERM1/RHO60 
TERM2 = .0008251803 truncated 
TERM3 = Kj/RHO60 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0008252 rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 
a) Calculate exponent 


TERML = ALPHA * DELTA -10232480 truncated 


TERM2 = 0.8 * TERM] = .08185984 truncated 
TERM3 = TERML * TERM2 = .00837629 rounded 
TERM4 = ~TERM] - TERM3 = -.11070109 
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b) Calculate exponential 
VCF = EXP(TERM4) = .895206 rounded 
(must use the first seven terms of the power series 


expansion of eX) 


Step 8: Calculate 60 °F density 
RHO60 = RHOTAVCE = 718.192 truncated 


TABLE 3 shows the results of each iteration. 


TABLE 3 
ITERATION RHO60 (N) ALPHA VCF RHO60(N+1) 
1 642.93 - 0008252 -895206 718.192 
2 718.19 -0006613 -916328 701.637 
3 701.64 -0006929 «912264 704.763 
4 704.76 -0006867 «913062 704.147 
5 704.15 -0006879 -912908 704.265 
6 704.27 -0006877 «912934 704.245 


API60 = 141360.1980/704.25 - 131.5 = 69.2 


EXAMPLE 4 
Step 1: Round input variables 
a) Round API gravity to nearest 0.1 
API = 94.5 rounded 
b) Round observed temperature to nearest 0.1 
T= 127.5 rounded 


Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 60.0 
DELTA = 127.5 - 60.0 = 67.5 
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Step 3: Compute hydrometer correction term 


HYC =1.0 — .00001278 * DELTA - .0000000062 * DELTA2 
TERML = .00001278 * DELTA = .000862650 rounded 

TERM2 = .0000000062 * DELTA? = .000028249 rounded 

HYC = 1.000000000 — .000862650 - .000028249 = .999109101 


Step 4: Convert API gravity to density 
RHO = (141.5 * 999.012)/(131.5 + APTI) 
RHO = 141360.1980/226.0 = 625.49 rounded 


Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 624.93 rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 624.93 


Step 6A: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO602 + Kj/RHO60 
Kg = 341.0957 (as of May 1, 1980) 
Ky = 0.0 (as of May 1, 1980) 
TERML = Ko/RHO60 
TERM] = .54581425 truncated 
TERM2 = TERM1/RHO60 
TERM2 = .0008734006 truncated 
TERM3 = K1/RHO60 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0008734 rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA?) 


a) Calculate exponent 


TERML = ALPHA * DELTA = .05895450 truncated 
TERM2 = 0.8 * TERML = .04716360 truncated 
TERM3 = TERML * TERM2 = .00278051 rounded 
TERM4 = —TERM1 -— TERM3 = -.06173501 
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b) Calculate exponential 
VCF = EXP(TERM4) = .940132 rounded 
(must use the first seven terms of the power series 


expansion of e%) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/AVCF = 664.725 truncated 


TABLE 4 shows the results of each iteration. 


ITERATION 


Nn F&F WH! 


RHO60 (N) 


624.93 
664.73 
659 .79 
660.35 
660.28 


TABLE 4 


ALPHA 


-0008734 
-0007719 
-0007835 
-0007822 
-0007824 
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VCF 


-940132 


947172 
- 946368 
-946458 
946444 


API60 = 141360.1980/660.29 ~- 131.5 = 82.6 


EXAMPLE 5 


Step 1: Round input variables 


a) Round API gravity to nearest 0.1 
= 50.0 rounded 


APT 


b) Round observed temperature to nearest 0.1 


77.0 rounded 


RHO60 (N+1) 


664.725 
659.785 
660.345 
660.282 
660.292 


Step 2: Calculate difference in cbserved temperature and base 


temperature 
BASE TEMPERATURE = 60.0 
DELTA = 77.0 - 60.0 = 17.0 


Step 3: Compute hydrometer oorrection term 
= 1.0 - .00001278 * DELTA - .0000000062 * DELTA2 


HYC 
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TERM] = .00001278 * DELTA = .000217260 rounded 
TERM2 = .0000000062 * DELTA? = .000001792 rounded 
HYC = 1.000000000 — .000217260 - .000001792 = .999780948 


Step 4: Convert API gravity to density 
RHO = (141.5 * 999.012)/(131.5 + API) 
RHO = 141360.1980/181.5 = 778.84 rounded 


Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 778.67 rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 778.67 


Step 6A: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO602 + K1/RHO6O 
Kg = 341.0957 (as of May 1, 1980) 
Ky = 0.0 (as of May 1, 1980) 
TERMI] = Ko/RHO60 
TERML = .43804910 truncated 
TERM2 = TERML/RHO6O 
TERM2 = .005625606 truncated 
TERM3 = K]/RHO60 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0005626 rounded 


Step 7: Calculate volume correction factor 

VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA? * DELITA2) 

a) Calculate exponent 
TERM] = ALPHA * DELTA = .00956420 truncated 
TERM2 = 0.8 * TERM] = .00765136 truncated 
TERM3 = TERML * TERM2 = .00007318 rounded 
TERM4 = ~TERM] - TERM3 = —.00963738 

b) Calculate exponential 
VCF = EXP(TERM4) = .990409 rounded 
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(must use the first seven terms of the power series 


expansion of eX) 


Step 8: Calculate 60 °F density 


RHO60 = RHOTAVCF = 786.210 truncated 


TABLE 5 shows the results of each iteration. 


TABLE 5 
ITERATION RHO60 (N) ALPHA 
1 778 67 -0005626 
2 786.21 -0005518 
3 786.06 -0005520 


VCF RHO60(N+1) 
- 990409 786.210 
-990594 786 .063 
-990590 786.066 


API60 = 141360.198/786.07 - 131.5 = 48.3 


11.1.5.4 TABLE 5B—GENERALIZED PRODUCTS, 
CORRECTION OF OBSERVED API 
GRAVITY TO API GRAVITY AT 60°F 


TABLE SB gives the values of API gravity at 60°F 
corresponding to an API hydrometer reading at ob- 
served temperatures other than 60°F. In converting the 
API hydrometer reading at the observed temperature 
to the corresponding API gravity at 60°F, two correc- 
tions are necessary: the first arises from the change in 
volume of the giass hydrometer with temperature (stem 
correction) and the second from the change in volume 
of the products with temperature. Both have been ap- 
plied in this table. The values of API gravity at 60°F in 
this table are the result of a computer procedure which 
is the Standard (see 11.1.5.5 and 11.1.5.6). 

The temperature ranges of this table are: 


“API °F 
0 to 40 0 to 300 
40 to 50 0 to 250 
50 to 85 0 to 200 


The values of API gravity at 60°F given in this table 
are based on data from the U.S. National Bureau of 
Standards and from other published data. Portions of 
the gravity and temperature ranges represent areas be- 
yond these data. Thus, mathematical techniques were 
employed to extrapolate beyond the gravity and tem- 
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perature ranges of the given data to determine the value 
of API gravity at 60°F for these areas. These values are 
denoted by an asterisk (*). Extension of this table be- 
yond the ranges shown is not recommended. 

Increments used in this table for determining API 
gravity at 60°F are 0.5°F and 0.5°API. Interpolation 
with temperature is not intended since there is no prac- 
tical method of interpolation that will produce the ac- 
curacy obtainable from the Standard. However, inter- 
polation with gravity to one additional significant digit 
can be reasonably made. Interpolation is not required if 
the TABLE 5B results are to be used as entries to 
TABLE 6B. 

This table must be entered with an API hy- 
drometer reading measured with a soft glass hy- 
drometer calibrated at 60°F and with an observed 
temperature. 


A correction to the glass hydrometer reading 
has been incorporated into the table to account 
for the thermal expansion of glass. The hydrom- 
eter constant, as defined in the Report on the 
Development, Construction, Calculation, and 
Preparation of the ASTM-IP Petroleum Measure- 
ment Tables (1960), varies with temperature ac- 
cording to the following: 

HYC = 1 — 0.00001278 (¢ — 60°F) 
— 0.0000000062 (¢ — 60°F)? 


API MPMS*11.-1 VOL*X 60 MM 0732290 0525899 502 
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11.1.5.5 PROGRAM DOCUMENTATION FOR SUBROUTINE TAB5B— 
GENERALIZED PRODUCTS, CORRECTION OF OBSERVED API 
GRAVITY TO API GRAVITY AT 60°F 


Subroutine Title: 


Description: 


Program Responsibility: 


Date Issued: 


Language: 


Reference: 


ABSTRACT 


TAB5B — Table 5B, Generalized Products, API 
Gravity Correction to 60 °F. 


This subroutine is designed to calculate the API 


gravity at 60 °F corresponding to API gravities 
observed at temperatures other than 60 °F. 


American Petroleum Institute 
Measurement Coordination 
2101 L Street N.W. 


Washington, D.C. 20037 


August 1980 


FORTRAN, ANSI/ASA Standard 


API Standard 2540, TABLE 6, 11.1.6 


THIS SUBROUTINE WAS DEVELOPED USING THE MATHEMATICAL ALGORITHMS 
AND SPECIFICATIONS DESCRIBED IN THE DOCUMENT PROCEDURE 11.1.5.6. 
ANY MODIFICATION TO THIS SUBROUTINE MUST RIGIDLY ADHERE TO THE 
SAME ALGORITHMS AND SPECIFICATIONS. 


11.1.5.5.1 Introduction 


TAB5B is a computer subroutine designed to calculate for substances 


characterized as generalized products the value of API gravity at 60 degrees 


Fahrenheit (°F) corresponding to API gravities observed at temperatures other 
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than 60 °F. The subroutine accepts as input the observed API gravity rounded 
to the nearest 0.1 °API and the temperature rounded to the nearest 0.1 °F. 
If either input value has not been properly rounded, the subroutine will 
round the values and return the corrected values. The subroutine returns the 
value of the API gravity at 60 °F rounded to the nearest 0.1 and a status 
flag for user convenience. The flag is set to -1 if an error condition 
occurs and to +1 if the value of the API gravity at 60 °F is an extrapola- 
tion. The limits of the correlation including the extrapolated region are 
depicted in Figure X-2. The calling program must check the flag and provide 
user with appropriate warning message or program termination. The flag is 
set to zero when the input variables and the API gravity at 60 °F are within 


the limits of the correlation. 
11.1.5.5.2 Subroutine Specifications 


The range of application is: 


°API Temperature, °F 

0 to 40 0 to 300 
40.1 to 50 0 to 250 
50.1 to 85 0 to 200 


Referenced modules: ALF5B, DIV5B, MPY5B, RHOSB, VCF5B 


FORTRAN functions: FLOAT, IABS 


Average execution time: 530 entries/CPU second 
IBM 370/168 


The subroutines are written in ANSI/ASA FORTRAN using integer arithmetic. 


The size and storage requirements are: 


1. Compilable source statements 172 
2. Decimal storage bytes 4258 
3. Words 1065 
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11.1.5.5.3 Calling Sequence 
CALL TAB5B (API, DEGF, IHYDRO, API60, IFLAG) 
INPUT DESCRIPTION 


APT - API gravity at observed temperature 
(API returned will be rounded to nearest 0.1 °APT) 


DEGF - Observed temperature, °F 
(DEGF returned will be rounded to nearest 0.1 °F) 


JHYDRO - Hydrometer switch 
O: The API gravity was observed with a glass hydro- 
meter and a hydrometer correction is needed 
l: The API gravity was determined from an on-line 
densitometer and a hydrometer correction is not 


needed. 
OUTPUT DESCRIPTION 
API60 -— Corresponding API gravity at 60 °F rounded to nearest 0.1 °API 


IFLAG - Status Code 
0: Indicates input variables and calculated results are 
within the range of application 
1: Indicates input variables are in extrapolated region 
-l: Indicates input variables or calculated results are 
outside the range of application 


NOTE: If a non—convergence occurs, the subroutine prints the following 


message: 


AT XXX.X DEGREES F AND XXX.X DEGREES API, A CORRESPONDING 
API AT 60 °F COULD NOT BE DETERMINED. 
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This message should not occur unless the code has been altered or 
incorrectly reproduced. Follow Section 11.1.5.6, Implementation 
Procedure, and test the subroutine exactly as described. The 
status flag will be set to -1, API60 to -99.9, and program control 
returned to the calling routine. 


11.1.5.5.4 Method of Calculation 


This subroutine uses a convergence technique to determine the API gravity 
at 60 °F that corresponds to an API gravity observed at some temperature 
other than 60 °F. Since the equations are expressed in terms of density, 


the API gravity is converted to density by the following relationship: 


_ 141.5 * 999.012 
t 131.5 + API 
where P. = density at temperature t 


API = observed API gravity 
999.012 


density of water at 60 oF, eeiar 


The coefficient of thermal expansion at the base temperature, 60 a is 


related to the density at the base temperature by 
K K 
Oh 5h ea 

P60 


The values of PF and Weg are used in the volume correction factor equation 


to compute Peo: 


p 
‘ack tL = — 
VCF = Peo EXP [-*604t + 0.82, ,4¢) ] 


Thus P, = Peg EXP [-“eoAt + DeBaegte) | 


Where Pe = density at the base temperature 


At = t — 60.0 
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Since the equation for 60 cannot be solved explicitly, a successive 
approximation iterative scheme is used to obtain a solution. The initial 
estimate of p 60 is the value of the density at observed temperature t. 
This approximation is substituted into the right hand side of the equation 
to obtain a second value approximation. This process of substituting into 
the right hand side of the equation and estimating a new value from the 
other is repeated until two consecutive results are in agreement to the 
desired degree of accuracy. In subroutine TAB5B, a converged solution is 
reached when the change in density is less than 0.05 Kg/m? in two 
successive passes. If the computed value of the 60 °F API gravity is not 
on the same curve as the doserved API gravity, the parameters Kg and 
K, used to determine the coefficient of thermal expansion must be 
redefined and the convergence technique repeated. A straight line 
interpolation is used to connect the jet fuel curve with the gasoline 
curve when the solution is between 48 and 52 °APT. When this occurs, the 
coefficient of thermal expansion is defined as: 
Reg 7 eRe Pe 
where A = —.00186840 (as of May 1, 1980) 
B = 1489.0670 (as of May 1, 1980) 


In this case, the tolerance is increased to 0.07 Kg/m>, 


A full explanation of the equations and the values of the parameters 
Kg and Kj may be found in API Standard 2540, TABLE 6, 11.1.6. 


11.1.5.5.5 Examples 


These examples are tutorial in nature and are not intended to be suffi- 
cient for subroutine checkout. The examples given in the Implementation 
Procedure, Section 11.1.5.6, are to be used for the computer checkout. 


Example 1 
API = 30.52 (observed with a glass hydrometer) 
DEGF = 248.0 
IHYDRO = 0 
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CALL TABSB (API ,DEGF, IHYDRO,API60 , I FLAG) 


After the call: API = 30.5 
DEGF = 248.0 
THYDRO = 0 
API60 = #£18.4 
IFLAG = 0 
Example 2 
API = 81.0 (observed with a glass hydrometer) 
DEGF = 184.0 
IHYDRO = 0 


CALL TAB5B (API ,DEGF, IHYDRO ,API60 , I FLAG) 


After the call: API = 81.0 
DEGF = 184.0 
THYDRO = 0 
API60 = 62.6 
IFLIAG = 1 
Example 3 

API = 43.0 (observed with a glass hydrometer) 

DEGF = 273.0 

THYDRPO= 0 


CALL TAB5B (API ,DEGF,IHYDRO ,API60 , IFLAG) 


After the call: API = 43.0 
DEGF = 273.0 
IHYDRO = 0 
API60 = -99.9 
IFLAG = -1l 
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11.1.5.5.6 FLOWCHART 


INPUT: API GRAVITY 
OBSERVED TEMPERATURE 
ROUND INPUT DATA 
TO SPECIFICATIONS 


DATA WITHIN 
BOUNDS OF 
CORRELATION 


NO SET STATUS FLAG = -1 


AND API GRAVITY AT GO*F = -99.3 
RETURN 


YES 


CALCULATE DELTA T 


CONVERT API GRAVITY TO DENSITY 


NEED 
HYDROMETER 
CORRECTION 


NO 


COMPUTE HYDROMETER CORRECTION 


APPLY HYDROMETER CORRECTION TO DENSITY 


SELECT APPROPRIATE KO AND K1 CONSTANTS 


INITIALIZE 60°F DENSITY 
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CALCULATE ALPHA 
CALCULATE VCF 
CALCULATE NEW 60"F DENSITY 


CHECK FOR 
ONVERGENC 


YES 


SET STATUS FLAG = -1 


60°F DENSIT 
WITHIN LIMITS 
QF CORRELATIO 


NO ANO API GRAVITY AT GO°F = -89.9 
RETURN 


YES 


USED CORREC 
KO AND K1 
CONSTANTS 


NO 


Yes 


60°F DENSITY 
ON STRAIGHT 
LINE SEGMENT 


YES REPEAT CONVERGENCE SCHEME 
WITH RE~DEFINED ALPHA 


CALCULATE API GRAVITY AT GO°F 


YES SET STATUS FLAG = 1 
RETURN 
NO 
SET STATUS FLAG = 0 
RETURN 


API IN 
EXTRAPOLATED 
REGION 
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11.1.5.5.7 Subroutine Listing 
TAB5B ‘This subroutine accepts API gravity and the observation 
temperature and determines the corresponding API gravity at 
60 °F for Generalized Products. 
Referenced Modules 
ALF5B ‘This module calculates the coefficient of thermal expansion 
needed to determine a volume correction factor. 
DIV5B This module is designed to produce additional accuracy from an 
integer divide. 
MPY5B ‘This module is designed to produce additional accuracy from an 
integer mltiplication. 
RHOSB This module uses an API gravity to calculate a density value. 
VCF5B This module calculates a volume correction factor. 
SUBROUTINE TAB5B(API , DEGF , IHYDRO, API60 , IFLAG) §B000010 
Cc 5B000020 
c (C) COPYRIGHT 1980 5B000030 
c AMERICAN PETROLEUM INSTITUTE 5B000040 
Cc ALL RIGHTS RESERVED 5B000050 
Cc 5B000060 
Cc THIS SUBROUTINE IS A VOLUNTARY STANDARD AND WAS DEVELOPED 5B000070 
Cc UNDER THE AUSPICES OF THE JOINT API-ASTM COMMITTEE ON STATIC 5B000080 
c PETROLEUM MEASUREMENT IN PART FROM DATA GENERATED BY A 5B000090 
Cc PROJECT FUNDED BY THE AMERICAN PETROLEUM INSTITUTE AT THE 5B000100 
Cc U.S. NATIONAL BUREAU OF STANDARDS, GAITHERSBURG, MARYLAND. 5B000110 
Cc 5B0001 20 
Cc INQUIRIES CONCERNING ITS APPLICATION SHOULD BE ADDRESSED TO: 5B000130 
c 5B0001 40 
C AMERICAN PETROLEUM INSTITUTE 5B000150 
c MEASUREMENT COORDINATION 5B000160 
c 2101 L STREET, N.W. 5B000170 
Cc WASHINGTON, DG 20037 58000180 
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Cc 5B000190 
Cc We ae as a a os ae ae ok ae os ais ae as oe ae ae He is Ae oe as ak ae He ois as Ae oe aie Bes asa ale eae oe ais be ae ais de ae Ne ale ae ae aie ae ae Ae ale ole ok ae de nie ake ok ake ake ake ake ak 5B000200 
Cc x * §B000210 
Cc ki THIS SUBROUTINE OR THE MATHEMATICAL RELATIONSHIPS * §5B000220 
Cc ag REPRESENTED THEREBY MAY BE USED BY ANYONE WISHING * 5B000230 
Cc : TO DO SO, BUT THE AMERICAN PETROLEUM INSTITUTE, THE * 5B000240 
Cc = AMERICAN SOCIETY FOR TESTING AND MATERIALS, AND THE * §B000250 
Cc . INSTITUTE OF PETROLEUM AND THEIR RESPECTIVE MEMBERS AND * 5B000260 
Cc 2 THE U.S. NATIONAL BUREAU OF STANDARDS, SHALL NOT BE HELD * §B000270 
Cc * RESPONSIBLE OR LIABLE IN ANY WAY FROM LOSS OR DAMAGE, * §B000280 
Cc . INCLUDING, BUT NOT LIMITED TO, CONSEQUENTIAL DAMAGE , * §B000290 
Cc * RESULTING FROM SUCH USAGE OR FOR VIOLATION OF ANY FEDERAL, * 5B000300 
Cc . STATE, OR MUNICIPAL LAWS, REGULATIONS OR PRACTICES OF THE * §B000310 
Cc x UNITED STATES OR OF ANY FOREIGN COUNTRY. * 68000320 
Cc * * 5B000330 
Cc ME ME Se Se See le aie ale Me fe be ale Se ae He ake le ak ate ale ale ade ae ale ale ak ae aie ae ate ale ale ale ale ae ae ae Ae ake ale te ole aie ae ale ole ae Ne ake ae ae ke ae ae ake oe ae oe ake ake te ale oe oe 5B000340 
Cc 5B000350 
Cc PURPOSE 5B000360 
Cc 5B000370 
Cc THIS SUBROUTINE IS DESIGNED TO ACCEPT AS INPUT API GRAVITY 5B000380 
Cc VALUE (API) AT OBSERVED TEMPERATURE (DEGF) IN DEGREES FAHRENHEIT5B000390 
Cc AND PRODUCE THE CORRESPONDING API GRAVITY VALUE (API60) AT 5B000400 
Cc 60 DEGREES FAHRENHEIT FOR TABLE 5B, GENERALIZED PRODUCTS. 5B000410 
Cc THE USE OF A GLASS HYDROMETER CORRECTION IS OPTIONAL . 5B000420 
C 5B000430 
Cc EXTERNAL FUNCTIONS OR SUBPROGRAMS 5B000440 
Cc 5B000450 
Cc ALF5B, DIV5B, MPY5B, RHO5B, VCF5B 5B000460 
Cc FORTRAN FUNCTIONS: FLOAT, IABS 5B000470 
Cc 5B000480 
Cc DESCRIPTION OF PARAMETERS 5B000490 
Cc 5B000500 
Cc API - API GRAVITY AT OBSERVED TEMPERATURE, NEAREST 0.1 (IN) 5B000510 
Cc DEG F (PROGRAM WILL ROUND API TO THE NEAREST §B000520 
Cc 0.1 DEG API AND RETURN ROUNDED VALUE. ) 5B000530 
Cc DEGF - OBSERVED TEMPERATURE, NEAREST 0.1 DEG F CIN) 5B000540 
Cc (PROGRAM WILL ROUND DEGF TO THE NEAREST 0.1 5B000550 
Cc DEG F AND RETURN THE ROUNDED VALUE. ) 5B000560 
Cc IHYDRO - APPLICATION OF GLASS HYDROMETER CORRECTION CIN) 5B000570 
Cc 0 - HYDROMETER CORRECTION IS TO BE MADE 5B000580 
Cc 1 - HYDROMETER CORRECTION IS NOT TO BE MADE 5B000590 
Cc API60 - CORRESPONDING API GRAVITY AT 60 DEGREES F (OUT) 5B000600 
Cc (ROUNDED TO THE NEAREST 0.1 DEG APT) 5B000610 
Cc IFLAG - STATUS CODE (OUT) 5B000620 
Cc 0 - INPUT AND CALCULATED RESULTS IN CORRELATION LIMITS 5B000630 
Cc 1 - INPUT OR CALCULATED RESULTS IN EXTRAPOLATED REGION 5B000640 
Cc -1 - INPUT OF CALCULATED RESULTS NOT WITHIN LIMITS OF 5B000650 
Cc CORRELATION 5B000660 
Cc BASE TEMPERATURE (60 DEGREES F) 5B000670 

DATA IBASE / 600 / 5B000680 
Cc 5B000690 
Cc MAXIMUM API RANGE OF TABLE (85 API) 5B000700 

DATA NBP1 / 850 / 5B000710 
Cc 5B000720 
Cc BREAK POINTS FOR API RANGES ( 40 AND 50 APT) 5B000730 

DATA IBP1, IBP2 / 400, 500 / 5B000740 
Cc 5B000750 
Cc MAXIMUM TEMPERATURES AT EACH BREAK POINT (300,250,200) 5B000760 
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SECTION 1—VoLUME CORRECTION FACTORS X-43 
DATA ITMP1, ITMP2, ITMP3 / 3000, 2500, 2000 / 5B000770 
5B000780 
BEGINNING OF TEMPERATURE EXTRAPOLATIONS (250,200,150) 5B0Q00790 
DATA IEP1, IEP2, IEP3 / 2500, 2000, 1500 / 5B000800 
5B000810 
COEFFICIENTS FOR DIESELS, HEATING OILS, AND FUEL OILS 5B000820 
DATA KOF, K1iF / 1038720, 2701 / 5B000830 
DATA NHIF / 370 / 5B000840 
5B000850 
COEFFICIENTS FOR JET FUELS, KEROSENES, AND SOLVENTS 5B000860 
DATA KOJ, KiJ / 3303010, 0 / 5B000870 
DATA NLOJ, NHIJ / 371, 500 / 5B000880 
5B000890 
COEFFICIENTS FOR GASOLINES AND NAPTHENES 5B000900 
DATA KOG, K1G / 1924571, 2438 / 5B000910 
DATA NLOG / 501 / 5B000920 
5B000930 
DENSITIES AT 0 AND 85 API 5B000940 
DATA LIM1, LIM2 / 1074982, 652934 / 5B000950 
5B000960 
STRAIGHT LINE INTERPOLATION: ALPHA=A+B/ (RHO* *2) §B000970 
FOR API 48 - 52 5B000980 
DATA INT1, INT2 / 480, 520 / 5B000990 
DATA IA, IB / -186840, 14890670 / 5B001000 
5B001010 
KONST OBTAINED BY MULTIPLYING 1415 TIMES 999012 5B001020 
DATA KONST / 1413601980 / 5B001030 
5B001040 
UNIT 6 IS THE OUTPUT UNIT. IF THE OUTPUT IS TO DIRECTED 5B001050 
TO SOME OTHER UNIT, SET NOUT TO APPROPRIATE VALUE. 5B001060 
NOUT = 6 5B001070 
5B001080 
ROUND API TO NEAREST 0.1 5B001090 
IAPI = ( (API * 100) + 5 ) / 10 5B001100 
API = FLOAT( IAPI ) / 10.90 5B001110 
5B001120 
ROUND TEMPERATURE TO NEAREST 0.1 5B001130 
IF ( DEGF ) 1200, 20, 20 §B001140 
IT = ( (DEGF * 100) + 5 ) / 10 5B001150 
DEGF = FLOAT( IT ) / 10.0 5B001160 
IS API LESS THAN ZERO (IF YES, BRANCH TO 1200) 5B001170 
IF ( IAPI ) 1200, 40, 40 5B001180 
IS API GREATER THAN 85 (IF YES, BRANCH TO 1200) 5B0011390 
IF ( IAPI - NBP1 ) 50, 50, 1200 5B001200 
IS API GREATER THAN 40 (IF YES, BRANCH TO 70) 5B001210 
IF ( IAPI - IBP1 ) 60, 60, 70 5B001220 
IS TEMP GREATER THAN 300 (IF YES, BRANCH TO 1200) §5B001230 
IF ( IT - ITMP1 ) 100, 100, 1200 5B001240 
IS API GREATER THAN 50 (IF YES, BRANCH TO 90) 5B001250 
IF ( IAPI - IBP2 ) 80, 8&0, 90 5B001260 
IS TEMP GREATER THAN 250 (IF YES, BRANCH TO 1200) 5B001270 
IF ( IT - ITMP2 ) 100, 100, 1200 5B001280 
IS TEMP GREATER THAN 200 (IF YES, BRANCH TO 1200) 5B001290 
IF ( IT - ITMPS3 ) 100, 100, 1200 5B001300 
CONT INUE 5B001310 
5B001320 
IFLAG = 0 §B001330 
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X-44 CuapTer 11—Puysica. PROPERTIES DATA 
IDT = IT - IBASE 5B001340 
Cc CONVERT API TO DENSITY §B001350 
CALL RHO5B(IAPI , IRHOT) 5B001360 
Cc 5B001370 
Cc IS HYDROMETER CORRELATION TO BE USED (IF NO, BRANCH TO 112) §B001380 
IF (¢( IHYDRO ) 101, 101, 111 5B001390 
Cc §B001400 
Cc COMPUTE HYDROMETER CONSTANT AT DELTA T 5B001410 
CG HYG = 1. - .00001278*(DEGF-60) - .0000000062* (DEGF-60)**2 §B001420 
101 IRD = 50 5B001430 
IF (IDT) 105, 110, 110 §B001440 
105 IRD = -50 §B001450 
110 THI = (127800 * IDT + IRD) / 100 §B001460 
IH2 = (62 * IDT * IDT + 500) / 1000 §B001470 
IHYC = 1000000000 - TH1 - IH2 §B001480 
Cc 5B001490 
Cc APPLY HYDROMETER CORRECTION TO DENSITY §B001500 
IRHO = IRHOT * 10 §B001510 
CALL MPY5B(IRHO, IHYC, IRHOT, 10000) 5B001520 
IRHOT = ( IRHOT + 50 ) / 100 §B001530 
Cc 5B001540 
111 JRHOT = IRHOT * 10000 §B001550 
Cc 5B001560 
112 ICOUNT = 0 5B001570 
Cc IS API IN DIESEL RANGE (0-37 API) (IF NO, BRANCH TO 120) 5B001580 
IF ¢( IAPI - NHIF ) 115, 115, 120 5B001590 
115 KO = KOF §B001600 
K1 = K1F 5B001610 
IREG = 0 §B001620 
GO TO 150 5B001630 
Cc IS API IN JET RANGE (37.1-50 APT) CIF NO, BRANCH TO 130) §B001640 
120 IF ¢( IAPI - NHIJ ) 125, 125, 130 5B001650 
125 KO = KOJ 5B001660 
K1 = K1J 58001670 
IREG = 1 5B001680 
GO TO 150 5B001690 
Cc API IS IN GASOLINE REGION (50.1-85 API) 5B001700 
130 KO = KOG §B001710 
Ki = K1G 5B001720 
IREG = 2 5B001730 
Cc 5B001740 
150 ICOUNT = ICOUNT + 1 5B001750 
Cc 5B001760 
IF (ICOUNT - 2) 160, 160, 400 5B001770 
Cc 5B001780 
160 IRHO60 = IRHOT 5B001790 
Cc §B001800 
KRHO = 0 5B001810 
Cc 5B001820 
NP = 0 5B001830 
Cc 5B001840 
300 NP = NP + 1 5B001850 
Cc 5B001860 
CALL ALF5B(IRHO60,KO,K1,IALF) 5B001870 
Cc 5B001880 
CALL VCFS5B(IALF ,IDT,IVCF) 5B001890 
Cc 5B001900 
IVCF = ( IVCF + 50 ) / 100 5B001910 
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SECTION 1—VOLUME CORRECTION FACTORS X-45 

Cc §B001920 
CALL DIV5B(JRHOT, IVCF , IRHO60 , 1000) 5B001930 

Cc §B001940 
IF ( IABS (IRHO60 - KRHO ) - 50 ) 500, 320, 320 5B001950 

C 5B001960 
320 KRHO = IRHO6O 58001970 
Cc 58001980 
IRHO60 = ( IRHO60 + 5 ) / 10 5B001990 

CG 5B002000 
IF ( NP - 20 ) 300, 1150, 1150 5B002010 

Cc 5B002020 
c STRAIGHT LINE INTERPOLATION IS USED TO CONNECT THE JET FUEL 5§B002030 
Cc AND GASOLINE LINES (48 - 52 API). ONLY THE DEFINITION OF 5B002040 
Cc ALPHA IS CHANGED. ALPHA = A+B / (CIRHO6G0**2) 5B002050 
c 58002060 
400 KRHO = 0 5B002070 
NP = 0 5B002080 
ICOUNT = 3 5B002090 

Cc FIRST GUESS IS DENSITY AT 50 API 5B002100 
IRHO60 = 77884 5B002110 

Cc 5B002120 
440 NP = NP + 1 5B002130 
CALL DIV5B( 1B, IRHO60 , IRES, 10000) 5B002140 

IRES = IRES * 10 5B002150 

CALL DIV5B(IRES, IRHO60, IRES2 , 10000) 5B002160 

IRES2 = (IRES2 + 5) / 10 5B002170 

IALF = (IA + IRES2 + 5) / 10 5B002180 

CALL VCF5B(IALF,IDT, IVCF) §B002190 

IVCF = (IVCF + 50) / 100 5B002200 

CALL DIV5B(JRHOT , IVCF , TRHO60, 1000) §B002210 

Cc 5B002220 
IF ( IABS(IRHO60 - KRHO) - 70 ) 500, 460, 460 5B002230 

Cc 5B002240 
460 KSAV = KRHO 5B002250 
KRHO = IRHOGO 5B002260 
IRHO60 = (IRHO6GO + 5) / 10 §B002270 

IF ( NP - 40 ) 440, 480, 480 5B002280 

Cc 5B002290 
c RESTRICTING DENSITY (IRHO60) TO THREE DECIMAL PLACES MAY §B002300 
Cc CAUSE THE CONVERGENCE TECHNIQUE TO REACH A STATIONARY 5B002310 
Cc POINT BEFORE TOLERANCE REACHED. THE AVERAGE OF THE UPPER 5B002320 
Cc AND LOWER BOUNDARIES IS A SATISFACTORY SOLUTION. 5B002330 
Cc 5B002340 
c AVERAGE LAST TWO PASSES 5B002350 
Cc 5B002360 
480 IRHO60 = ( KRHO + KSAV ) / 2 5B002370 

Cc 5B002380 
Cc IS RHO60 GREATER THAN UPPER LIMIT (IF YES, BRANCH TO 1200) 5B002390 
500 IF ( IRHO60 - LIM1 ) 510, 510, 1200 5B002400 

Cc IS RHO60 LESS THAN LOWER LIMIT (IF YES, BRANCH TO 1200) 5B002410 
510 IF ( IRHO60 - LIM2 ) 1200, 520, 520 5B002420 

Cc 5B002430 
520 IRHO60 = ( (IRHOGO + 5) / 10 ) 5B002440 
IAPI60 = KONST / IRHO60 - 13150 5B002450 

Cc 5B002460 
IAPI60 = ( IAPI60 + 5 ) / 10 §B002470 

API60 = FLOATCIAPI60) / 10. 5B002480 

Cc 5B002490 
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IF (IGOUNT - 3) 600, 720, 720 
IF (IREG - 1) 610, 620, 640 
IS API60 ABOVE DIESEL REGION (IF YES, BRANCH TO 125) 
IF ( IAPI60 - NHIF ) 680, 680, 125 
IS API60 ABOVE JET REGION (IF YES, BRANCH TO 130) 
IF ( IAPI60 - NHIJ ) 630, 680, 130 
IS API60 BELOW JET REGION (IF YES, BRANCH TO 115) 
IF ( IAPI60 - NLOJ ) 115, 680, 680 
IS API60 BELOW GASOLINE REGION (IF YES, BRANCH TO 125) 
IF ( IAPI60 - NLOG ) 125, 680, 680 
CONT INUE 
IF IAPI60 GT 479 AND IAPI60 LT 521, USE STRAIGHT LINE 
IS API GREATER THAN 48.0 (IF YES, BRANCH TO 690) 
IF ( IAPI60 - INT1 ) 720, 400, 690 
IS API .LE. 52.0 (IF YES, BRANCH TO 400) 
IF ( IAPI60 - INT2 ) 400, 400, 720 
IS API GREATER THAN 40 (IF YES, BRANCH TO 790) 
IF ( IAPI - IBP1 ) 780, 780, 790 
IS TEMP GREATER THAN 250 (IF YES, BRANCH TO 830) 
IF ( IT - IEP1 ) 820, 820, 830 
IS API GREATER THAN 50 (IF YES, BRANCH TO 810) 
IF ( IAPI - IBP2 ) 800, 800, 810 
IS TEMP GREATER THAN 200 (IF YES, BRANCH TO 830) 
IF ( IT - IEP2 ) 820, 820, 830 
IS TEMP GREATER THAN 150 (IF YES, BRANCH TO 830) 
IF ( IT - IEP3 ) 820, 820, 830 
CONT INUE 
RETURN 
SET SWITCH INDICATING EXTRAPOLATED REGION 
IFLAG = 1 
RETURN 


1150 WRITE(NOUT,6020) DEGF, API 


6020 FORMAT(5H1 AT 


Cc 
Cc 
1200 


eee eonenenenek®) 


,F5.1,15H DEGREES F AND 
1 CORRESPONDING API AT 60 F COULD NOT BE DETERMINED. ) 


,F5.1, 


66H DEGREES API, 


SET SWITCH INDICATING OUTSIDE RANGE OF TABLE 5B 


IFLAG = -1 
APT60 = -99. 
RETURN 

END 


9 


SUBROUTINE RHOSB(IAPI , IRHO) 


THIS SUBROUTINE IS DESIGNED TO CALCULATE A DENSITY 
VALUE FOR A GIVEN VALUE OF API BY THE FORMULA 
RHO=141.5*999.012/(API+131.5) 
IT IS ASSUMED THAT THE API VALUE HAS BEEN ROUNDED 
TO THE NEAREST TENTH DEGREE API AND THE VALUE MULTIPLIED 
BY 10. THE OUTPUT VALUE OF RHO WILL BE RETURNED 

AS AN INTEGER AND ROUNDED TO THE NEAREST HUNDREDTH 
KILOGRAM/CUBIC METRE. 
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SECTION 1—VoLUME CORRECTION FACTORS K-47 
Cc 5B003050 
Cc THE VALUE 1413601980 REPRESENTS 141.5*999.012*10000 5B003060 
Cc CORRECT TO 10 DIGITS 5B003070 
IDENOM=IAPI+1315 5B003080 
IRHO=(1413601980/IDENOM+5 ) /10 5B003090 
RETURN 5B003100 
END 5B003110 
SUBROUTINE DIV5B( INUM, IDENOM, IRES, ISCALE) 5B003120 
Cc 5B003130 
Cc THIS SUBROUTINE IS DESIGNED TO PRODUCE ADDITIONAL §B003140 
c ACCURACY FROM AN INTEGER DIVIDE WHERE THE NUMERATOR 5B003150 
Cc IS ISCALE GREATER THAN THE DENOMINATOR. THE SUBROUTINE 5B003160 
c ASSUMES PROPER SCALING OF BOTH THE INPUT NUMERATOR 5B003170 
Cc AND DENOMINATOR AND WILL RETURN THE RESULTS MULTIPLIED 5B003180 
Cc BY ISCALE. 5B003190 
Cc 5B003200 
IRES1=INUM/ IDENOM 5B003210 
IRES2=( INUM- IRES1 * IDENOM) *ISCALE / IDENOM 5B003220 
TRES=IRES1 * ISCALE+IRES2 5B003230 
RETURN 5B003240 
END 5B003250 
SUBROUTINE ALF5B(IRHO,KO,K1,IALF) 5B003260 
Cc 5B003270 
Cc THIS SUBROUTINE IS DESIGNED TO CALCULATE ALPHA FOR 5B003280 
Cc USE IN DETERMINATION OF VOLUME CORRECTION 5B003290 
Cc FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE AS INTEGERS, 5B003300 
CG THE SUBROUTINE RETURNS WITH A 8 DIGIT VALUE §B003310 
CG 5B003320 
CG INPUT VARIABLES §B003330 
Cc IRHO=DENSITY*100 (KILOGRAMS/CUBIC METRE) 5B003340 
Cc KO ,K1= COEFFICIENTS OF DESIRED CURVE * 10000 §B003350 
Cc 5B003360 
CG ALGORITHM - §B003370 
Cc ALPHA=K0 / RHO* *2+K1 /RHO 5B003380 
Cc 5B003390 
G CALCULATE K1/RHO 5B003400 
CG 5B003410 
INUM=K1 *10000 §B003420 
CALL DIV5B(INUM, IRHO, IALF1,10000) §B003430 
Cc 5B003440 
Cc CALCULATE K0O/RHO**2 5B003450 
G 5B003460 
INUM=K0*100 §B003470 
CALL DIV5B( INUM, IRHO, IALFS,10000) 5B003480 
CALL DIV5B(IALFS, IRHO, IALF2, 10000) 5B003490 
IALF=(IALF1+IALF2+500 )/1000 5B003500 
RETURN 5B003510 
END 5B003520 
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X-48 CHAPTER 11—PHYSICAL PROPERTIES DATA 
SUBROUTINE VCF5B(IALF ,IDT,IVCF) 5B003530 
Cc 5B003540 
Cc THIS SUBROUTINE IS DESIGNED TO CALCULATE VOLUME 5B003550 
c CORRECTION FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE 5B003560 
Cc AS INTEGERS, THE SUBROUTINE RETURNS WITH A 8 5B003570 
Cc OR 9 DIGIT VALUE DEPENDENT UPON WHETHER IDT 5B003580 
Cc IS POSITIVE OR NEGATIVE. 5B0035390 
Cc 5B003600 
Cc ALGORITHM - §B003610 
CG VCF=EXP(-ALPHA*DT(1.0+0.8*ALPHA*DT ) ) 5B003620 
Cc 5B003630 
Cc CALCULATE ALPHA*DT 5B003640 
C 5B003650 
ITERM1=IALF * IDT 5B003660 
Cc 5B003670 
Cc CALCULATE 0.8*ALPHA*DT 5B003680 
CG 5B003690 
ITERM2=ITERM1 /5*40 5B003700 
Cc 5B003710 
Cc CALCULATE EXPONENT -ALPHA*DT(1 .0+0.8*ALPHA*DT) §B003720 
Cc 5B003730 
CALL MPYS5BCITERM1 , ITERM2 , ITERMS , 1000) 5B003740 
ITERM3 = ( ITERM3 + 500 ) / 1000 5B003750 
IX= -ITERM1 - ITERMS3 §B003760 
Cc 5B003770 
ie; CALCULATE EXPONENTIAL(FIRST 7 TERMS OF POWER SERIES) 5B003780 
c 5§B003790 
ISUM1=100000000+IX 5B003800 
CALL MPY5B(IX,1X, ISUM2,1000) §B003810 
ISUM2=( (ISUM2+50)/100)/2 §B003820 
CALL MPY5B( IX, ISUM2 , ISUM3, 1000) 5B003830 
ISUM3=( (ISUM3+50)/100)/3 5B003840 
CALL MPY5B( 1X, ISUM3 , ISUM4 , 1000) 5B003850 
TISUM4=( (ISUM4+50)/100)/4 5B003860 
CALL MPY5B( IX, ISUM4 , ISUM5, 1000) §B003870 
ISUM5=( (ISUM5+50)/100)/5 5B003880 
CALL MPY5B(IX, ISUM5, ISUMG6, 1000) 5B003890 
ISUM6=( (ISUM6+50)/100)/6 5B003900 
IVCF=1ISUM1+1ISUM2+1ISUM3+ISUM4+ISUM5+1ISUM6 5B003910 
RETURN 5B003920 
END 5B003930 
SUBROUTINE MPY5B(1IX,1IY,IZ,ISCALE) 5B003940 
Cc THIS ROUTINE PERFORMS INTEGER MULTIPLICATION. THE TOTAL 5B003950 
Cc NUMBER OF DIGITS IN IX AND IY MUST NOT EXCEED 17. OTHER 5B003960 
Cc WISE, OVERFLOW WILL OCCUR. 5B003970 
Cc 5B003980 
Iu1 = IX / ISCALE 5B003990 
K1 = ISCALE * IU1 5B004000 
IV1 = IX - K1 5B004010 
IU2 = IY / ISCALE 5B004020 
K2 = ISCALE * IU2 5B004030 
IV2 = IY - K2 5B004040 
K3 = IU1 * IV2 + IU2 * IV1 + I1V1 * IV2 / ISCALE 5B004050 
IZ = (K3 + ISCALE/2) / ISCALE + IU1 * IU2 5B004060 
RETURN 5B004070 
END 5B004080 
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SECTION 1—VOLUME CORRECTION FACTORS xX-49 
11.1.5.6 IMPLEMENTATION PROCEDURE FOR SUBROUTINE TAB5B 


The use of the computer has gained widespread acceptance throughout the 
petroleum industry. Computers are used for accounting purposes, in 

process simulation and modeling, data retrieval and evaluation, and are 

now being used extensively in custody transfer measurements and trans- 
actions. In 1968, the American Petroleum Institute recognized the need 

for incorporating existing petroleum measurement tables into computer 

code. In June of 1973, a subroutine for TABLE 6, Volume Reduction to 60 °F, 
was made available. Since then many of the other standardized petroleum 
measurement tables have been made available as computer subroutines. 


However, the computerization of an existing table of numbers proved to be 
a very difficult task. For instance, it proved to be impossible to use 
the mathematical expression that was supposedly used to generate the table 
values and calculate values identical to the tabular entries. This was 
because some of the values entered into the tables had been slightly 
modified and also because the procedures used to round the calculated 


values were inconsistent. 


The only way to overcome these problems in a computer subroutine was to 

manually locate all the table entries that did not agree with the calculated 
values and add extensive "exception tables" to the code. This made the code 
lengthy and somewhat cumbersome to modify and to some extent restricted its 


use to larger computing systems. 


The working group for TABLE 6 revision realized the importance of elimi- 
nating any potential for such problems in the future and also recognized 
the need to have computer subroutines available at the time the new 
petroleum measurement tables were released. The working group decided to 
outline an explicit implementation procedure to ke followed when using the 
new correlation for volume correction factors. This implementation 
procedure would then be the Standard rather than a set of equations or set 
of tables. Standardization of an implementation procedure implies 


standardization of the set of mathematical expressions used within the 
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computer code. Absolute adherence to the outlined procedure will insure 
that all computers and computer code of the future, meeting the stated 
specifications and restrictions, will be able to produce identical 
results. Such a procedure allows for the maximum machine and code 


independence. 


The implementation procedure as described in the following text can by 
careful and deliberate application of numerical analysis be followed 
through the majority of language and word sizes in present and anticipated 
use. To follow the standard procedure means absolute and unwavering 
adherence to the number of digits specified at each step and to the 


calculational procedure as outlined. 


In the procedure, the nomenclature digits (XXX.XX) means mathematically 
significant digits as defined in ASTM E380-76. In the previous example, 
all five (5) digits in the parenthesis are mathematically significant. 


At various steps in the implementation procedure, calculated results are 
rounded or truncated. When rounding a result to fewer digits than the 
total number available, the following procedure which was used overrides 
that of ASTM E380-76: 


a) when the first digit to be discarded is less than 5, the last digit 
retained is not changed. 
b) when the first digit to be discarded is greater than 4, the last 


digit retained is increased by one unit. 


The procedure used in truncating a result to fewer digits than the total 
number available is to simply discard all digits following the last digit 
to be retained and leaving the last retained digit unchanged. 


Another specification is that the mefficients used to relate the thermal 
expansion coefficient at 60 °F to the 60 °F density base and all other 
constants needed in the correlation must be used to exactly the number of 


digits specified. 
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Calculation Procedure 


Step 1: Round input variables 
a) Round API gravity to nearest 0.1 
API = XXX.X rounded 
b) Round cbserved temperature to nearest 0.1 
T = XXX.X rounded 


Step 2: Calculate difference in observed temperature and 
base temperature 
BASE TEMPERATURE = 60.0 
DELTA = XXX.X — 60.0 = XXX.X 


Step 3: Compute hydrometer correction term (optional) 
HYC = 1.0 - .00001278*DELTA - .0000000062*DELTA2 
TERM] = .00001278*DELTA = .OOXXXXXXX rounded 
TERM2 = .0000000062*DELTA2 = .000XXXXXX rounded 
HYC = 1.000000000 - .OOXXXXXXX — .OOOXXXXXX = X.XXXXXXXXX 


Step 4: Convert API gravity to density, Kg/m3 
RHO (141.5*999.012)/(131.5+APT) 
RHO = 141360.1980/XXX.X = XXXX.XX rounded 


Step 5A: Application of hydrometer correction 
RHOT = RHO*HYC = XXXX.XX rounded 


Step 5B: Initialize 60 °F density 
RHO6O = RHOT = XXXX.XX 


Step 6A: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO602 + Kj /RHZ60 
Ko = XXXX.XXXX 
Kj = »oXXXX 
TERM] = Ko/RHO60 = .XXXXXXXX truncated 
TERM2 = TERML/RHO6GO = .OOXXXXXXXX truncated 
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TERM3 = Kj/RHO60 = .OOXXXXXXXX truncated 
ALPHA = TERM2 + TERM3 = .QOOXXXX rounded 


Step 6B: Calculation of ALPHA for straight line segment 
ALPHA = A + B/RHO602 
A = —£00186840 (as of May 1, 1980) 
B = 1489.0670 (as of May 1, 1980) 
TERM] = B/RHO60 = X.XXXXXX truncated 
TERM2 = TERML/RHO60 = .XXXXXXXX rounded 
ALPHA = A + TERM2 = .0OOXXXX rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA*DELTA - 0.8*ALPHA2*DELTAZ) 
a) calculate exponent 
TERM] = ALPHA * DELTA = .XXXXXXXX truncated 
TERM2 = 0.8 * TERM] = .XXXXXXXX truncated 
TERM3 = TERM] * TERM2 = .XXXXXXXX rounded 
TERM4 - TERML - TERM3 = .XXXXXXXX 


b) calculate exponential 
VCF = EXP(TERM4) = X.XXXXXX rounded 
(Must use at least the first seven terms of 


the power series expansion.) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = XXXX.XXX truncated 


Since the equation for P60 cannot be soived explicitly, a successive 
approximation iterative scheme is used to obtain a solution. The initial 
estimate of P69 is the value of the density at observed temperature t. 
This approximation is substituted into the right hand side of the equation 
to obtain a second value approximation. This process of substituting into 
the right hand side of the equation and estimating a new value from the 
other is repeated until two consecutive results are in agreement to the 
desired degree of accuracy. In subroutine TAB5B, a converged solution is 
reached when the change in density is less than 0.05 Kg/m? in two 
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successive passes. If the computed value of the 60 OF API gravity is not 
on the same curve as the observed API gravity, the parameters Ko and 
K used to determine the coefficient of thermal expansion must be 
redefined and the convergence technique repeated. A straight line 
interpolation is used to connect the jet fuel curve with the gasoline 
curve when the solution is between 48 and 52 CAPI. When this occurs, the 
coefficient of thermal expansion is defined as: 
agg = A+B /o66 
where A = -.00186840 (as of May 1, 1980) 
B = 1489.0670 (as of May 1, 1980) 

In this case, the tolerance is increased to 0.07 Kg/m>. 


The 1980 integer FORTRAN code issued by API contain both an integer 
division and an integer multiplication algorithm. A description of each 


follows. 


INTEGER MULTIPLICATION PROCEDURE 
(For 32 Bit Arithmetic) 


DATA DEFINITION 

X,Y are integer numbers that are equal to or less than 2*109 (slightly 
less than 231). a larger value may cause overflow. In addition, the 
total number of digits in X and Y must not exceed 17, otherwise overflow 
will occur. Z is the product (X*Y) scaled by 10-8, i.e. Z = (x*y) /108. 


Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically, at least 15 digits 
are needed to obtain 6 digit precision, 16 for 7 and 17 for 8. ‘The 
largest value of X and Y that may be used are 2 000 000 000 and 

99 999 999. (Either values may be used for X and Y). 
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CALCULATION 
x/10000 = Ul 
10000 * Ul 
X-Kl = vl 
¥/10000 = U2 
10000 * U2 = K2 
Y-K2 = V2 
(U1*V2) + (U2*V1) + (V1*V2/10000) = x3 
(K3 + 5000)/10000 + U1*U2 = 2% 


iT] 
a) 


Note: Z has been scaled by 1078 and may have to be rescaled before use. 


TOTAL DIGITS IN X AND Y 12 13 14 #15 #16 #17 
DIGITS IN PRODUCT, Z 3-4 4-5 5-6 6-7 7-8 8-9 


INTEGER DIVISION PROCEDURE 
(For 32 Bit Arithmetic) 


DATA DEFINITION 
X,Y are integer numbers such that X is equal to or less than 231 -1 ana 
Y is of order of magnitude 104 less than xX. 


R is the quotient of X/Y scaled by 104, i.e. R= X/y * 104. 


Note: If it is desirable to obtain maximum precision, X and Y may be scaled 
up prior to use of the procedure. Typically, the more digits that are 
carried in both X and Y, the more accurate digits o output. 


CALCULATION 
X/Y = Ul 
Ul * Y = KL 
X-Kl=vl 
VI/Y = U2 
Ul * 10000 + U2 =R 
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Note: R has been scaled by 104 and may need to be rescaled before use. 


Examples for Checkout 


The following examples illustrate how the implementation procedure is 
actually used to determine the value of an API gravity at 60 °F for 
Generalized Products. The examples carry the computations through each step 
of the procedure showing the results of each mathematical operation. The 
computed values are given to the required precision and it is indicated if a 
value has been rounded or truncated. The step-by-step calculations are 
shown for the first iteration then a table is presented which summarizes the 


intermediate values used to obtain a converged solution. 


These examples are to be used as test cases for subroutine TAB5B to verify 
the computer code has not been altered or incorrectly reproduced. The 
routine has been designed to execute on machines that use word size of 
32-bits or greater. Any new development of computer code that is designed 
to follow the standard implementation procedure must insure that the values 
computed at each step in the procedure are identical to those given in the 
examples. 


EXAMPLE 1 
Step 1: Round input variables 
a) Round API gravity to nearest 0.1 
API = 25.0 rounded 
b) Round cbserved temperature to nearest 0.1 
T = 130.0 rounded 


Step 2: Calculate difference in dbserved temperature and base temperature 
BASE TEMPERATURE = 60.0 


Step 3: Compute hydrometer correction term 
HYC = 1.0 - .00001278 * DELTA — .0000000062 * DELTA2 
TERMI = .00001278 * DELTA = .000894600 rounded 
TERM2 = .0000000062 * DELTA2 = .000030380 rounded 
HYC = 1.000000000 - .000894600 — .000030380 = .999075020 
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Step 4: Convert API gravity to density 
RHO = (141.5 * 999.012)/(131.5 + APT) 
RHO = 141360.1980/156.5 = 903.26 rounded 


Step 5A: Application of hydrometer oorrection 
RHOT = RHO * HYC = 902.42 rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 902.42 


Step 6A: Calculate coefficient of thermal expansion 
ALPHA = Kq/RHO602 + K1/RHO60 
Kg = 103.8720 (as of May 1, 1980) 
Kj = .2701 (as of May 1, 1980) 
TERM] = Ko/RHO60 
TERM] = .11510383 truncated 
TERM2 = TERM1/RHO60 
TERM2 = .0001275501 truncated 
TERM3 = Kj/RHO60 
TERM3 = .0002993063 truncated 
ALPHA = TERM2 + TERM3 = .0004269 rounded 


Step 7: Calculate volume correction factor 

VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA? * DELTA2) 

a) Calculate exponent 
TERM] = ALPHA * DELTA = .02988300 truncated 
TERM2 = 0.8 * TERM] = .02390640 truncated 
TERM3 = TERM] * TERM2 = .00071439 rounded 
TERM4 = ~TERM] -— TERM3 = ~.03059739 

b) Calculate exponential 
VCF = EXP(TERM4) = .969866 rounded 


(must use the first seven terms of the power series 


expansion of e%) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCE = 930.458 truncated 
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TABLE 1 shows the results of each iteration. 


TABLE 1 
ITERATION RHO60 (N) ALPHA VCF RHO60(N+1) 
1 902.42 .0004269 969866 930 .458 
2 930.46 -0004103 -971047 929 .326 
3 929.33 -6004109 -971004 929 .367 
API60 = 141360.1980/929.37 - 131.5 = 20.6 
EXAMPLE 2 
Step 1: Round input variables 
a) Round API gravity to nearest 0.1 
API = 35.0 rounded 
b) Round observed temperature to nearest 0.1 
T= 7.5 rounded 
Step 2: Calculate difference in cbserved temperature and base 
temperature 
BASE TEMPERATURE = 60.0 
DELTA = 7.5 — 60.0 = -52.5 
Step 3: Compute hydrometer correction term 
HYC =1.0 - .00001278 * DELTA — .0000000062 * DELTA? 
TERM1 = .00001278 * DELTA = -.000670950 rounded 
TERM2 = .0000000062 * DELTA’ = .000017089 rounded 
HYC = 1.000000000 + .000670950 - .000017089 = 1.000653861 
Step 4: Convert APT gravity to density 
RHO = (141.5 * 999.012)/(131.5 + API) 
RHO = 141360.1980/166.5 = 849.01 rounded 
Step 5A: Application of hydrometer correction 


RHOT = RHO * HYC = 849.57 rounded 
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Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 849.57 


Step 6A: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO60~ + K1/RHO6O 
Kg = 103.8720 (as of May 1, 1980) 
Ky = .2701 (as of May 1, 1980) 
TERM1 = Ko/RHO60 
TERM] = .12226420 truncated 
TERM2 = TERM1L/RHO60 
TERM2 = .0001439130 truncated 
TERM3 = K1/RHO60 
TERM3 = .0003179255 truncated 
ALPHA = TERM2 + TERM3 = .0004618 rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 
a) Calculate exponent 
TERMI] = ALPHA * DELTA = -—.02424450 truncated 


TERM2 = 0.8 * TERMI = -.01939560 truncated 
TERM3 = TERML * TERM2 = .00047024 rounded 
TERM4 = -—TERM] - TERM3 = .02377426 


b 


— 


Calculate exponential 

VCF = EXP(TERM4) = 1.024059 rounded 

(must use the first seven terms of the power series 
expansion of e%) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/AVCF = 829.610 truncated 


TABLE 2A shows the results of each iteration. 
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TABLE 
RHO60 (N) ALPHA 
849.57 -0004618 
829.61 -0004765 
829.00 .0004770 


2A 


VCF 


1.024059 


1.024819 
1.024844 


API60 = 141360.1980/828.97 - 131.5 = 39.0 


X-59 


RHO60(N+1) 


829.610 
828.995 
828.974 


Computed value of API60 is not om the same curve as the input API gravity. 


Redefine Kg and Kj for the jet fuel curve and repeat the convergence 


scheme in steps 5B through 8. Table 2B shows 


ITERATION 


TABLE 2B 


RHO60 (N) ALPHA 


-0004576 
-0004797 
-0004808 


the results. 


VCF 


1.023842 


1.024984 
1.025041 


API60 = 141360.1980/828.81 - 131.5 = 39.1 


EXAMPLE 3 


Step 1: Round input variables 
a) Round API gravity to nearest 0.1 


API = 45.0 rounded 


b) Round observed temperature to nearest 0.1 


Step 2: Calculate difference in cbserved temperature and base 
temperature 


T = 77.0 rounded 


BASE TEMPERATURE = 60.0 
DELTA = 77.0 - 60.0 = 17.0 
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Compute hydrometer correction term 


HYC 
TERM1 
TERM2 
HYC 


1.0 - .00001278 * DELTA ~ .0000000062 * DELTA? 


= .00001278 * DELTA = .000217260 rounded 
-0000000062 * DELTA? = .000001792 rounded 


1.000000000 - .000217260 - .000001792 = .999780948 


Convert API gravity to density 


RHO 
RHO 


(141.5 * 999.012)/(131.5 + APTI) 
141360.1980/176.5 = 800.91 rounded 


Application of hydrometer correction 
RHOT = RHO * HYC = 800.73 rounded 


Initialize 60 °F density 


RHO60 


= RHOT = 800.73 


Calculate coefficient of thermal expansion 


ALPHA 

Ko 

Ky 
TERM 
TERM1 
TERM2 
TERM2 
TERM3 
TERM3 
ALPHA 


= Ko/RHOGO" + Kj/RHO60 


330.3010 (as of May 1, 1980) 

= 0.0 (as of May 1, 1980) 

= Ko/RHO60 

= 41249984 truncated 

= TERML/RHO60 

= .0005151547 truncated 

= K1/RHO060 

= 0.0 

= TERM2 + TERM3 = .0005152 rounded 


Calculate volume correction factor 


VCF = 


EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * pELTA2) 


a) Calculate exponent 
TERML = ALPHA * DELTA = .00875840 truncated 


TERM2 = 0.8 * TERM] = .00700672 truncated 
TERM3 = TERM] * TERM2 = .00006137 rounded 
TERM4 = ~TERM] - TERM3 = — .00881977 
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b) Calculate exponential 
VCF = EXP(TERM4) = .991219 rounded 
(must use the first seven terms of the power series 


expansion of e*) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = 807.823 truncated 


TABLE 3 shows the results of each iteration. 


TABLE 3 
ITERATION RHO60(N) ALPHA, VCF RHO60(N+1) 
1 800.73 «0005152 -991219 807 .823 
2 807 .82 -0005062 -991373 807 .698 
3 807.70 -0005063 -991371 807.699 


API60 = 141360.1980/807.70 - 131.5 = 43.5 


EXAMPLE 4 
Step 1: Round input variables 
a) Round API gravity to nearest 0.1 
API = 60.0 rounded 
b) Round observed temperature to nearest 0.1 
T = 140.0 rounded 


Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 60.0 
DELTA = 140.0 - 60.0 = 80.0 


Step 3: Compute hydrometer correction term 


HyC =41.0 - .00001278 * DELTA ~ .0000000062 * DELTA” 
TERM] = .00001278 * DELTA = .001022400 rounded 

TERM2 = .0000000062 * DELTA“ = .000039680 rounded 

HYC = 1.000000000 - .001022400 - .000039680 = .998937920 
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Step 4: Convert API gravity to density 
RHO = (141.5 * 999.012)/(131.5 + APTI) 
RHO = 141360.1980/191.5 = 738.17 rounded 


Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 737.39 rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 737.39 


Step 6A: Calculate coefficient of thermal expansion 
ALPHA = Kg/RHO6O” + Ky/RHO6O 
Kg = 192.4571 (as of May 1, 1980) 
Ky = 0.2438 (as of May 1, 1980) 
TERM] = Kg/RHO60 
TERM! = .26099770 truncated 
TERM2 = TERM1/RHO60 


TERM2 = .0003539479 truncated 
TERM3 = Kj /RHO60 


TERM3 = .0003306255 truncated 
ALPHA = TERM2 + TERM3 = .0006846 rounded 


Step 7: Calculate volume correction factor 

VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELITA2) 

a) Calculate exponent 
TERML = ALPHA * DELTA = .05476800 truncated 
TERM2 = 0.8 * TERM] = .04381440 truncated 
TERM3 = TERML * TERM2 = .00239963 rounded 
TERM4 = ~TERM] ~ TERM3 = -.05716763 

b) Calculate exponential 
VCF = EXP(TERM4) = .944436 rounded 


(must use the first seven terms of the power series 


expansion of e*) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = 780.772 truncated 
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TABLE 4A shows the results of each iteration. 


TABLE 4A 
ITERATION RHO60 (N) ALPHA _ VCF RHOGO(N+1) 
1 737.39 -0006846 944436 780.772 
2 780.77 0006280 -949083 776.949 
3 776.95 -0006326 -948705 777 259 
4 777.26 -0006322 2948738 777.232 


API60 = 141360.1980/777.23 - 131.5 = 50.4 


Computed value of API60 is on the straight line segment connecting the jet 
fuel and gasoline curves. Redefine ALPHA and repeat convergence scheme in 
steps 5B through 8. 


Step 5B: Initialize 60 °F density 
RHO60 = 778.84 
(first approximation is density equivalent of 50 °API) 


Step 6B: Calculation of ALPHA for straight line segment 
ALPHA = A + B/RHO602 


A = -.00186840 (as of May 1, 1980) 

B = 1489.0670 (as of May 1, 1980) 
TERML = B/RHO60 = 1.911903 truncated 
TERM2 = TERM1/RHO60 = .00245481 rounded 
ALPHA = A + TERM2 = .0005864 rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA? * DELTA2) 
a) Calculate exponent 
TERM4 = ~.04691200 — .00176059 = -.04867259 
b) Calculate exponential 
VCF = EXP (TERM4) = .952493 rounded 
(must use the first seven terms of the power series 


expansion of e*) 
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Step 8: Calculate 60 °F density 
RHO6O = 737.39/.952493 = 774.168 


TABLE 4B 
ITERATION RHO60 (N) ALPHA VCF RHO60(N+1) 
1 778 .84 -0005864 0952493 774 .168 
2 774.17 0006161 -950059 776.151 
3 776.15 -0006035 -951092 775 2308 
4 775.31 -0006088 -950657 775 .663 
5 775.66 -0006066 -950838 775.515 
6 775 52 -0006075 -950764 775.576 
API60 = 141360.1980/775.58 - 131.5 = 50.8 
EEE 


Step 1: Round input variables 
a) Round API gravity to nearest 0.1 
API = 50.0 rounded 
b) Round observed temperature to nearest 0.1 
T= 12.5 rounded 


Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 60.0 
DELTA = 12.5 —- 60.0 = -47.5 


Step 3: Compute hydrometer correction term 
2 


HYC =1.0 — .00001278 * DELTA — .0000000062 * DELTA 
TERM] = .00001278 * DELTA = ~.000607050 rounded 
TERM2 = .0000000062 * DELTA? = 000013989 rounded 


HYC = 1.000000000 + .000607050 - .000013989 = 1.000593061 


Step 4: Convert API gravity to density 
RHO = (141.5 * 999.012)/(131.5 + APT) 
RHO = 141360.1980/181.5 = 778.84 rounded 
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Application of hydrometer correction 
RHOT = RHO * HYC = 779.30 rounded 


Initialize 60 °F density 
RHO60 = RHOT = 779.30 


Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO60° + K1/RHO6O 
Kg = 330.3010 (as of May 1, 1980) 
K; = 0.0 (as of May 1, 1980) 
TERML = Ko/RHO60 
TERML = .42384319 truncated 
TERM2 = TERM1/RHO60 
TERM2 = .0005438768 truncated 
TERM3 = K1/RHO60 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0005439 rounded 


Calculate volume correction factor 


VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 
a) Calculate exponent 

TERM] = ALPHA * DELTA = —.02583525 truncated 
TERM2 = 0.8 * TERM] = -.02066820 truncated 
TERM3 = TERM] * TERM2 = .00053397 rounded 
TERM4 = -TERM] - TERM3 = .02530128 

Calculate exponential 

VCF = EXP(TERM4) = 1.025624 rounded 


b 


— 


(must use the first seven terms of the power series 
expansion of e%) 


Calculate 60 °F density 


RHO60 = RHOT/AWF = 759.830 truncated 


TABLE 5A shows the results of each iteration. 
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TABLE 5A 
ITERATION RHO60 (N) ALPHA VCF RHO60(N+1) 
1 779 .30 0005439 1.025624 759 6830 
2 759 83 0005721 1.026940 758 .856 
3 758.86 -0005736 1.027010 758 .804 
4 758 .80 -0005737 1.027015 758 «800 


API60 = 141360.1980/758.80 — 131.5 = 54.8 


Computed value of API60 is not on the same curve as the input API gravity. 
Redefine Kg and K, for the gasoline curve and repeat the convergence 
scheme in steps 5B through 8. Table 5B shows the results. 


TABLE 5B 
ITERATION RH060(N) ALPHA VCF RH060(N+1) 
1 779.30 -0006297 1.029625 756 .877 
2 756.88 -0006581 1.030947 755.906 
3 755.91 -0006593 1.031003 755.865 


API60 = 141360.1980/755.87 — 131.5 = 55.5 


EXAMPLE 6 
Step 1: Round input variables 
a) Round API gravity to nearest 0.1 
API = 75.0 rounded 
b) Round observed temperature to nearest 0.1 
T= 94.0 rounded 


Step 2: Calculate difference in doserved temperature and base 
temperature 
BASE TEMPERATURE = 60.0 
DELTA = 94.0 - 60.0 = 34.0 


Step 3: Compute hydrometer correction term 
HYC =1.0 - .00001278 * DELTA — .0000000062 * DELTA 
TERM] = .00001278 * DELTA = .000434520 rounded 


2 
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TERM2 = .0000000062 * DELTA = .000007167 rounded 
HYC = 


1.000000000 - .000434520 — .000007167 = .999558313 


Step 4: Convert API gravity to density 
RHO = (141.5 * 999.012)/(131.5 + API) 
RHO = 141360.1980/206.5 = 684.55 rounded 


Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 684.25 rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 684.25 


Step 6A: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO60° + Ky/RHO6O 
Kg = 192.4571 (as of May 1, 1980) 
K) = 0.2438 (as of May 1, 1980) 
TERM] = Ko/RHO60 
TERM] = .28126722 truncated 
TERM2 = TERM1/RHO60 


TERM2 = .0004110591 truncated 
TERM3 = Kj/RHO60 


TERM3 = .0003563025 truncated 
ALPHA = TERM2 + TERM3 = .0007674 rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA * DELTA - 0.8 *- ALPHA? * DELITA2) 
a) Calculate exponent 
TERM] = ALPHA * DELTA = .02609160 truncated 
TERM2 = 0.8 * TERM] = .02087328 truncated 
TERM3 = TERM] * TERM2 = .00054462 rounded 
TERM4 = ~TERM1 - TERM3 = —-.02663622 
Calculate exponential 
VCF = EXP(TERM4) = .973715 rounded 
(must use the first seven terms of the power series 


b 


— 


expansion of e%) 
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Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = 702.721 truncated 


TABLE 6 shows the results of each iteration. 


TABLE 6 
ITERATION RHO60(N) ALPHA VCF RHO60(N+1) 
1 684 «25 -0007674 0973715 702.721 
2 702.72 -0007367 974774 701.957 
3 701.96 -0007379 2974733 701.987 


API60 = 141360.1980/701.99 - 131.5 = 69.9 


EXAMPLE 7 
Step 1: Round input variables 
a) Round API gravity to nearest 0.1 
API = 55.5 rounded 
b) Round observed temperature to nearest 0.1 
T = 176.0 rounded 


Step 2: Calculate difference in doserved temperature and base 
temperature 
BASE TEMPERATURE = 60.0 
DELTA = 176.0 - 60.0 = 116.0 


Step 3: Compute hydrometer correction term 


HyC =1.0 - .00001278 * DELTA - .0000000062 * DELTA? 
TERM] = .00001278 * DELTA = .001482480 rounded 

TERM2 = .0000000062 * DELTA? = .000083427 rounded 

HYC = 1.000000000 — .001482480 - .000083527 = .998434093 


Step 4: Convert API gravity to density 
RHO = (141.5 * 999.012)/(131.5 + APT) 
RHO = 141360.1980/187.0 = 755.94 rounded 
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Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 754.76 rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 754.76 


Step 6A: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO60" + K1/RHOGO 
192.4571 (as of May 1, 1980) 
Ky = 0.2438 (as of May 1, 1980) 
TERM] = Ko/RHO60 
TERML = .25499112 truncated 
TERM2 = TERM1/RHO60 
TERM2 = .0003378439 truncated 
TERM3 = K1/RHO60 
TERM3 = .0003230165 truncated 
ALPHA = TERM2 + TERM3 = .0006609 rounded 


m~ 
io) 
" 


Step 7: Calculate volume correction factor 


VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 


a) Calculate exponent 
TERMI = ALPHA * DELTA 


TERM3 = TERM] * TERM2 

TERM4 = ~TERM] — TERM3 = —.08136634 
b) Calculate exponential 

VCF = EXP(TERM4) = .921856 rounded 


(must use the first seven terms of the power series 


expansion of e%) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = 818.739 truncated 


TABLE 7A shows the results of each iteration. 
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.07666440 truncated 
TERM2 = 0.8 * TERM] = .06133152 truncated 
.00470194 rounded 
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ITERATION 


Oo & W NY 


RHO60(N) 


754.76 
818.74 
810.73 
811.62 
811.53 
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TABLE 7A 

ALPHA VCF RHO60(N+1) 
-0006609 ~921856 818.739 
-0005849 -930967 810.726 
-0005935 -929938 811.624 
-0005926 -930045 811.530 
-0005927 -930033 811.541 


APT60 = 141360.1980/811.54 - 131.5 = 42.7 


Computed value of API60 is not on the same curve as the input API gravity. 


Redefine Kg and K, for the jet fuel curve and repeat the convergence 
Table 7B shows the results. 


scheme in steps 5B through 8. 


ITERATION 


mn & W NH F 


RHO60 (N) 


754 .56 
810.20 
802.31 
803 «32 
803.19 


TABLE 7B 


ALPHA 


-0005798 
-0005032 
-0005131 
-0005118 
-0005120 


API60 = 141360.1980/803.21 - 


11.1.6 TABLES 6A, 6B, and 6C— 
Correction of Volume to 60°F 
Against API Gravity at 60°F and 
Thermal Expansion Coefficients 


TABLES 6A, 6B, and 6C give the factors for convert- 
ing liquid petroleum volumes measured at observed 
temperatures to the corresponding volumes at 60°F. 

The data are presented in three tables to maximize 
accuracy while maintaining convenience of use: 


TABLE 6A_ Generalized Crude Oils 


(see Volume 1) 
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VCF RHO6O(N#1) 
.931578 810.195 
.940732 802.311 
.939551 803.319 
.939706 803.187 
.939682 803.207 
131.5 = 44.5 


TABLE 6B Generalized Products (see Volume II) 

TABLE 6C Volume Correction Factors for 
Individual and Special Applications 
(see Volume ITI) 


TABLES 6A and 6B use API gravity at 60°F to ob- 
tain volume correction factors. TABLE 6C uses experi- 
mentally determined thermal expansion coefficients to 
obtain volume correction factors. 

The development and intended use of these tables is 
described below. The parameters Ky and K, can be 
found in 11.1.6.7.1 (see Volume III). 

The limits of these tables are illustrated in Figures 
X-3, X-4, and X-5. 
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Temp 200 
°F 


Data Range 


0 40 50 55 
Gravity ° API 


Figure X-3 — Data Limits for TABLE 6A 


250 - 
ee 200 Zz 
ae ZZ LLL 
5 0 40 50 85 
Gravity ° API 
Figure X-4 — Data Limits for TABLE 6B 
300 
Tein 250 
oF 200 


ZEEE Hoo HF, 


Data Range 


%70 510 530 930 
Thermal Expansion Coefficient x 106 (°F-1) 


Figure X-5 — Data Limits for TABLE 6C 


Note: The Ludwig charts used throughout these volumes were devel- 
oped by Dr. L.D. Weiner, Mobil Oil Corporation. 
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HISTORY AND DEVELOPMENT OF THE 
PETROLEUM MEASUREMENT TABLES (1980) 


A major revision of the Petroleum Measurement 
Tables (ASTM D1250/IP 200) was developed under the 
sponsorship of the American Petroleum Institute. The 
new tables have been accepted as standard by several 
national and international organizations. The status of 
the revised tables at the time of the preparation of this 
document is summarized as follows: 


American Petroleum Institute (API) 
Accepted by the Committee on Petroleum. Mea- 
surement, September 1979. 
API Standard 2540 


Institute of Petroleum (London) 
Accepted as revised standard, September 1979. 
IP Standard 200 


International Standards Organization (ISO) 
Accepted as Draft International Standard, No- 
vember 1979. Final vote to be completed during 
1981. 

ISO DIS 91 


American Society for Testing and Materials (ASTM) 
Accepted by Committee D-2, December 1979, 
vote of the general membership was completed 
April 1980. 

ASTM D 1250 


American National Standards Institute (ANSD 
Awaiting American Society for Testing and Ma- 
terials results. 


Background 


For the purpose of custody transfer of bulk petroleum 
oils and products, bulk volumes and contractual densi- 
ties are stated at a fixed reference or base temperature. 
Sixty degrees Fahrenheit is used as the base tempera- 
ture within the United States and many other producing 
countries dealing with the United States. However, 
15°C and 20°C are standard bases in a significant num- 
ber of nations. Volumes metered at temperatures other 
than base value are adjusted to the base value by factors 
developed and tabulated in the Petroleum Measure- 
ment Tables. 

The original tables were developed in the late 1940s 
as described by Hall et al. (1975). The tables were based 
on the crude and fraction data published by Bearce and 
Peffer (1916). These tables were the result of close co- 
operation in 1953 between the Institute of Petroleum 
(London), the Committee D-2 on Petroleum Products 
and Lubricants of the American Society for Testing 
Materials, and the American Petroleum Institute. 


In 1972 Downer and Inkley demonstrated that the 
previously published tables were not satisfactorily ap- 
plicable to many crude oils of current economic impor- 
tance. The API and the National Bureau of Standards 
(NBS) initiated a cooperative venture, funded by the 
API, to create a data base of density measurements on 
both crude oils and refined products. This joint venture 
was initiated in 1974 and its intent was to provide the 
solid scientific base for the development of more ac- 
curate, consequently more equitable, measurement 
tables. 

The completion of this five-year, $500,000 project in 
March 1979 opened the way for modernizing the tables. 
The sequence of events leading up to the publication of 
these tables is summarized in Table X-1. Using the NBS 
density data and taking advantage of publications of 
outstanding technical authorities, a Joint API-ASTM 
Subcommittee on Physical Properties produced the 
1980 edition of the Petroleum Measurement Tables. 
The results of this project are described in the open 
literature by Hankinson et al. (1979) and Hankinson et 
al. (1980). 

Table X-2 gives a capsule picture of the issues that 
concerned the committee in producing the final version 
of its work. 


Experimental Project 


The American Petroleum Institute and the National 
Bureau of Standards initiated a cooperative venture, 
funded by the API, to create a data base of density 
measurements on both crude oils obtained from com- 
mercially significant, worldwide sources and on refined 


Table X-1 — API Thermal Volumetric Correction 
Factor Study 


@ Downer and Inkley presented problem in 1972. 
@ API sponsored five year NBS project to reaffirm TABLES 
5 and 6. 
® NBS produced density-temperature data for industry 
supplied samples. 
@ NBS submitted data to API in September 1978 with revisions in 
March 1979. 
@ Preliminary results by NBS showed data did not confirm 
TABLES 5 and 6. 
@ API COSM Physical Properties Working Group expanded 
October 1978. 
@ Recommendations to API in March 1979. 
@ API ballot on new tables issued 
COSM, MARCH 1979—UNANIMOUS APPROVAL 
COPM, AUGUST 1979—UNANIMOUS APPROVAL 
IP, SEPTEMBER 1979—UNANIMOUS APPROVAL 
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Table X-2 — Issues Addressed by API Working Group 


® How should NBS data be screened for consistency? 

Do the samples represent more than one statistical population? 

@ What is the best equation for relating volume correction factor 
to temperature for a single population? 

@ How should the density of a substance at base temperature be 
related to thermal expansion coefficients for a population of 
substances? 

©@ What is the best technique for extrapolating beyond 140°F, the 
limit of the NBS data? 

@ How many tables should be published to replace the present 
tables? 

@ What should be their limits, increments, and format? 

@ How can universal computer code be best developed? 


products of the greatest economic significance. 

Through its member companies, the API provided 
the NBS with 463 samples; 211 of crude oils, the re- 
mainder of refined products. The list of samples rep- 
resented 66.8 percent of the world crude production 
and 68.1 percent of the estimated reserves for 1974. The 
criteria for the selection of crude sample sources were 
(1) production for 1974, (2) estimated reserves for that 
year, and (3) countries wishing to contribute samples of 
national origin which did not fit the first two categories. 

Refined products were obtained primarily from API 
member companies. Each company was requested to 
submit at least three samples, preferably of those pro- 
ducts having the highest refining volume. Refineries 
outside of the United States provided approximately 30 
percent of the refined products samples. 

A detailed description of the experimental technique 
and preliminary, unconfirmed results were released by 
the NBS principal investigator, J. R. Whetstone, in 
September 1978. Based on statistical studies performed 
by the Physical Properties Working Group and because 
of the group’s recommendations, Whetstone checked 
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approximately 30 percent of the original data and made 
significant modifications to the data base. On March 6, 
1979, Whetstone released the finalized data base to the 
API. Excluding samples on which fewer than three ex- 
perimental measurements were reported, and certain 
duplicates, the final data base consisted of 349 samples 
distributed as shown in Table X-3. The data base con- 
tains temperature density data only and does not reflect 
viscosity, molecular weight, UOPK, or any additional 
characterization parameter. There were 25 samples for 
which fewer than three points of data were reported and 
14 samples which were replicated for equipment cali- 
bration. The points in these two groups were eliminated 
from the data base, are not contained in Table X-3, and 
were not used in the correlation effort. 


Fluid Groups 


The original NBS data were screened for consistency 
and to obtain a preliminary indication of the existence 
of more than a single population. The screening was 
performed by the use of linear equations and large ma- 
chine generated plots (see Table X-4). 

The samples included in the data base were identified 
by source and class of substance (crude oil, jet fuel, 
kerosine, motor gasoline, and so forth). These classifi- 
cations were used as a guide to statistical examination of 
the data base to determine if it contained identifiable, 
statistically different populations. It was found that 
there were five major identifiable groups of substances 
that had significantly different relationships between 
the coefficient of thermal expansion and density. The 
differences between each of these unusual groups and 


Table X-3 — API/NBS Data Base 


Density Temperature 
Number of Number of Range Range 
Category Samples Observations kg/m? °F 
Crude oil 124 600 770-990 40-133 
Finished and 76 436 657-770 39-111 
unfinished gasolines 
Jet fuels, kerosines, 44 351 785-825 39-125 
solvents 
Fuel oils, heating oils, 76 617 812-1075 39-136 
diesel oils 
Lubricating oils 17 107 861-940 40-136 
Miscellaneous 
Lube 2 13 927-972 50-127 
Reformate, naphtha, etc. 6 43 664-823 39-129 
JP-4 4 _ 21 736-763 41-104 
TOTALS 349 2278 


Copyright por American Petroleum Institute 
Mon Feb 07 13:42:03 2005 


API MPNS*11-1 VOL*X 80 MM 0732290 0525940 730 a 


SECTION 1—VOLUME CORRECTION FACTORS 


X-75 


the rest of the data were all statistically significant. 
These deviations were attributed to differences in com- 
position, aromaticity, density range, or other anoma- 
lies. These major and minor categories are identified in 
Table X-3. 


Separate Representation Needed for 
Crude and Product Classes 


Figure X-6 shows that the coefficient of thermal ex- 
pansion of crude oil and the classes of products (gas- 
olines, jet fuels, fuel oils, and lube oils) follow separate 
curves as a function of inverse density squared. This fact 
forces different representations to be used for each class 
in each of the new petroleum measurement tables. A 
more detailed breakdown of the product classifications 
is as follows: 


Gasoline 50 = °API s 8&5 
Jet fuels 37 < °API < 50 
Fuel oils 0 < °API < 37 


Lubricating oils 


900 
800 
700 
it 
c 
= “$00 CRUDES 
So 
x< 
- 
> 500 
400 
Zn LUBE OILS 
300 
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Table X-4 — Preliminary Study of NBS Data 


Computer Generated Plots of Deviations in Densities from Linear 
Equations: 


@ Screening of NBS Data for Anomalies 
Large differences over small temperature ranges. 
Same bias for points from several samples run on same day. 
Bias in points run several months apart on same sample. 


® Visual Analysis of Total Population 
Trends in deviations indicated if a sample was above, at, or 
below average, i.e. to identify sub-groups in population. 
Distinguish between data anomalies and trends. 


@ Communicate Results 
Data anomalies communicated to NBS (and others) who 
immediately recognized the problems. 


Results 
@ 5 populations, 1 crude and 4 product groups indicated. 
@ NBS revised data on nearly 30 percent of samples. 


It is worth emphasizing that meticulous care went 
into establishing, by both visual and mathematical anal- 
ysis, the need for five populations of data, the crude and 
four product groups indicated. As stressed by William 
E. Deming, as early as 1939, ‘‘without a homogeneous 
population, a statistician’s calculations by themselves, 
are an illusion, if not a delusion.” 


GASOLINES 


FUEL OILS 


1.8 2.0 2.2 2.4 2.6 


(tipz?) X 108 [kgim3y? 


Figure X-6 — Coefficients of Expansion for Five Statistically Homogeneous Groups 
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The most significant impact of this portion of the 
study was to demonstrate conclusively that the wide 
range of commercially important materials represented 
by the data base could not be adequately described by 
two dimensional tables, such as the previously pub- 
lished TABLES 5 and 6 in the Petroleum Measurement 
Tables. The basic accuracy of this quality data would be 
destroyed and bias would be introduced by an attempt 
to characterize the five categories as a single group. 
This loss of accuracy and the introduction of bias is not 
defensible if the tables are to be equitable to all table 
users. 


Correlation Development 


The fundamental definition for the coefficient of 
thermal expansion is: 


q =14V (1) 
V dt 
Where: 


a = coefficient of thermal expansion 
V = volume at any temperature. 


The final form of the equation relating volume correc- 
tion factors to easily obtainable measurements depends 
upon the integration of this definition. The integration, 
in turn, depends upon the assumptions made and the 
sequence in the derivation at which the assumptions are 
invoked. 

A number of forms were proposed and studied by the 
working group. Three types of equations were elimin- 
ated from consideration: (1) forms with finite discontin- 
uities in the equation or the derivative between temper- 
atures of 0°F and 300°F, (2) equations containing com- 
plicated transcendental functions not suitable for gen- 
eral use on mini- and microcomputers, and (3) equa- 
tions containing high order powers inside an exponen- 
tial or other limitations prohibiting the use of single 
precision nonlinear analysis. From this type of elimina- 
tion, an exponential equation emerged containing a se- 
cond order term which exhibited the most desirable 
characteristics in terms of accuracy, simplicity, and 
curve shape. The working group accepted this ex- 
ponential equation for use in the final correlation. 


The equation was derived using: 
a=a7,+ BAt (2) 
Where: 


a7 = a at the base temperature 
8 = a function of « and is independent of temperature. 
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Hence from Equations 1 and 2: 


1 dW o9,+BAt (3) 
Vodt 
At =t-T 


Which can be rearranged and integrated between ¢ and 
T to give: 


In, ve =ar At + 8 ae (4) 


A study of the NBS data demonstrated that: 
B= kay (5) 


Where: 
k = a temperature independent constant. 


These equations were statistically validated by com- 
puter studies of the NBS data base. The precise value of 
k was selected from a consideration of (1) the computer 
studies, (2) the theoretical curvature of density with 
temperature, and (3) high temperature literature data 
on crudes, petroleum fractions, and C, through C3 
alkanes. These literature data were obtained from the 
work of Jessup (1929) and Orwall and Flory (1967). The 
value of k best expressing these criteria is 1.6. 


Thus, Equation 4 becomes: 


4 Pr 


Where: 
t = any temperature 
T = base temperature. 


Equation 6 is valid for a particular fluid of known 
alpha. 

It was determined that the coefficients of thermal 
expansion at the base temperature for each group are 
related to the densities at the base temperature by: 


_ Ko + Kier 


7 
pr ”) 


ar 


Parameter Determination and Results 


The values of Ky and K, were established for each 
major group from a simultaneous nonlinear regression 
of all data points within that group to Equations 6 
and 7. In this case the parameters were Ky and K, for 
the group and the vector of 60°F densities for each 
sample. See Column C of Table X-5. 
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Table X-5 — Comparison of Correlation Results 


ar 


_ Ko + Kier 


2 


Pr 


Tabular Entries in Percent Standard Deviation 


A 
Group NS NP Set at a Time 
Crude oils 124 690 .0152 
Gasoline and naphthenes 16 436 .0109 
Jet fuels and kerosines 44 351 .0105 
Diesels, heating oils and 16 617 0094 
fuel oils 
Lubricating oils 17 107 0067 
TOTAL 337 2201 


Note: Alpha in reciprocal °F, Rho in k/m’. 


The data were also reduced a set at a time by the use 
of Equation 6. In this case the parameters were the a7 
and p; for each sample. It is apparent that the use of 
two parameters for fitting a three or four point sample 
introduces a maximum bias because of the over specifi- 
cation of the degrees of freedom. These results are 
shown in Column A, Table X-5. The a7 and pz pairs 
obtained from this procedure were, as the third meth- 
od, fit to Equation 7 to determine the values of Kg and 
K,. See Column B of Table X-5. 

The results and accuracy indicators are presented in 
Tables X-5 and X-6. Percent standard deviation given in 
the table is defined by: 


no 2 
co =V— [@- p-) ! pil? / (mp — 1) x 100 
Pa (8) 


o = percent standard deviation 

p; = experimental density 

p. = calculated density 
np = number of points 
no = total number of observations in a group. 


An examination of Table X-5 shows that there is a 
significant increase in standard deviation between the 
data fit a set at a time (Column A) and the data fit 
simultaneously (Column C). This occurred for two 
major reasons: 


1. By the act of grouping, which was necessary to 
produce a reasonable number of tables, sample differ- 
ences such as composition, aromaticity, and density dif- 
ferences were averaged out. This effect could be re- 
duced by the inclusion of some technique to charac- 
terize the aromaticity as described previously. 
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B Cc From Method C 
Generalization of A Global Fit Ky K, 
0371 .0253 341.0957 0.0 
.0304 .0266 192.4571 0.2438 
0237 0174 330.3010 0.0 
0262 .0180 103.8720 0.2701 
0274 .0197 144.0427 0.1896 


2. The reduction of the error in small data sets well 
below the experimental scatter of the data by fitting a 
set at a time. At this time there is insufficient informa- 
tion available to ascertain the distribution of the stan- 
dard deviation between these two factors. 


Table X-5 further shows that the simultaneous or 
global fit of all data in a group is significantly better than 
the attempt to generalize the pairs resulting from the set 
at a time regression. This is because of the scatter about 
Equation 7 caused by the “overfitting” of the small data 
sets. The global fit (Column C) gives equal weight to 
each data point while the generalization technique 
(Column B) gives equal weight to each data set, hence 
the global fit is a less biased, more equitable represen- 
tation of the entire data base. The results from the 
global fit (see Table X-6) were used in the preparation 
of the tables. 

A complete set of results including the percent stan- 
dard deviation, the maximum percent error, the density 
at 60°F, and the coefficient of thermal expansion are 
presented for each sample in the printed tables. 

Equation 6 presents the volume correction factor 
(VCF) as a function of the thermal expansion coeffi- 
cient and density, both evaluated at the reference tem- 
perature. In that basic form, the equation is indepen- 


Table X-6 — Results of Global Regression of 
NBS Data to Final Equations 


Percent Standard 


Group Number of Points Deviation 
Crude oils 690 .0253 
Gasolines 436 .0266 
Jet fuels 351 0174 
Fuel oils 617 .0180 
Lubricating oils 107 .0197 
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Table X-7 — Table Development 


Tables 
@ Three separate tables. 
TABLE A Generalized Crude Oils (0-100° API) 
TABLE B Generalized Products (0-85° API) 
TABLE C VCF for Individual and Special Applications 
@ Temperature and °API in 0.5 increments. 
® Printout to five significant digits. 
@ Interpolation not to be used. 
@ Appendix to TABLE C contains p; and «7 for each individual 
sample. 


dent of any specific group and equally applicable to all 
groups. The equation is reliable over the temperature 
range of 0°F to 250°F and an API range of 0° to 100°. 
Equation 7 relates thermal expansion coefficient and 
density to a specific group through the constants Ky and 
K, for each group. 


Table Development 


Because of the growing importance of computers and 
their increasing influence on the metering effort, it was 
decided that the actual API Standard would consist of 
computer procedures. Subroutines were developed fol- 
lowing these procedures so that identical answers are 
obtained regardless of the word size (within the limits of 
the word size conventions of the major hardware 
vendors) used by the hardware. 

There are three common sets of tables in current use. 
These are in terms of “API (TABLES 5 and 6), relative 
density (TABLES 23 and 24), and density in kg/m?* 
(TABLES 53 and 54). In order to maximize accuracy 
and maintain convenience of use, three separate tables 
are required to replace each existing table. For exam- 
ple, for TABLE 6 there are: TABLE 6A Generalized 
Crude Oils, TABLE 6B Generalized Products, and 
TABLE 6C Volume Correction Factors for Individual 
and Special Applications. Equivalent tables were devel- 
oped for the other two sets in the appropriate units. See 
Table X-7. The temperature ranges of the tables and 
the limits are shown in Table X-8. 

The crude oil and products tables retain the format of 
the previously published tables. Volume correction fac- 


Table X-8 — Table Development 
Correlation Limits 


TABLE A TABLE B 
°API °F °API SE 
0-40 0-300 0-40 0-300 
40-50 0-250 40-50 0-250 
50-100 0-200 50-85 0-200 
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tors or densities are tabulated as functions of tempera- 
ture. These were computed from Equations 6 and 7 
with the appropriate values for Ky and K,. Each prod- 
ucts table was computed in three sections: 


1. Fuel oils group equation from an API of 0° to an API 
of 37°. 

2. Jet fuel group equation from an API of 37° to an API 
of 50°. 

3. Gasoline group equation from an API of 50° to an 
API of 85°. 


This is shown graphically in Figure X-7. TABLE 6A 
for crude oils covers a range from 0° to 100°API. 

TABLES C, the special applications tables, present 
tabular entries of volume correction factor against 
thermal expansion coefficient and temperature. Each 
TABLE C was computed from Equation 6 and thus is 
independent of the group or substance. TABLE C can 
be used with any valid method of obtaining the thermal 
expansion coefficient for a given fluid as long as a sta- 
tistically significant number of points are obtained. A 
minimum of ten such points is recommended. An ap- 
pendix (see Volumes II], VI, and IX) to the published 
TABLES C presents values of the thermal expansion 
coefficient along with the base density for each of the 
NBS samples. In addition, values of the constants Ko 
and K, are given for each major group. The existence of 
this table and its primary subroutine allow the use of 
measured data for previously unstudied fluids to be 
easily incorporated into the procedure. High precision 
density data obtained from the laboratory for a fluid of 
interest may be reduced by Equation 6 to obtain a; and 
pr. TABLES C may then be entered with the a7 so 
determined. 

TABLES C, when used with a minimum of ten data 
points, allow one to extract the highest degree of accu- 
racy from the data base. TABLES C introduce a high 
degree of flexibility into the procedure by allowing new 
data to be incorporated into the Standard. Of course, 
with the increase of computer applications, the use of 
the TABLES C technique will not, on the average, 
prove to be a loss of convenience. It is suggested that 
TABLES C be used when: 


1. TABLES A and B do not adequately represent the 
thermal expansion properties of the fluids of interest; 
and 

2. Precise thermal expansion coefficients may be ob- 
tained directly or indirectly by experiment (As an exam- 
ple, high precision density data may be used to compute 
the coefficient.); and 

3. If buyers and sellers agree that, for their use, a 
Jreater degree of equity can be obtained. 
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Summary and Precision Statement 


The new tables give factors for converting petroleum 
volumes observed at temperatures other than the base 
temperature to corresponding volumes at the base tem- 
perature for values of API gravity in the range 0° to 
100°. 

The tables are based on density temperature determi- 
nations made by the U.S. National Bureau of Standards 
from 1974 to 1979 under contract to the API on 225 
samples of products ranging from heavy fuel oil to gaso- 
line blend components and 124 samples of crude oil that 
cover a wide range of quality and represent about 45 
percent of the world’s crude production and reserves as 
known during that time period. 

The thermal expansion properties (volume correc- 
tion factors) for products (including lube stocks) and 
crude oils are correlated in separate, generalized tables 
as a function of temperature and density or API gravity. 
The predicted precision at the 95 percent confidence 
level is: 


VCF precision at 95 
percent confidence level, % 


Temperature 100°F =150°F §=200°F = 250°F 
Crudes and Products +0.05 1S 25 35 
900 


800 


700 


600 


a, X 10° (°F)—" 


500 


FUEL OILS 


400 
SAPI> 37 


300 


1.0 1.2 1.4 


1.6 


A precision statement for the 250°F to 300°F portion 
of the tables is not given because it is an extrapolation. 


Independent Test of the Correlation 


In order to obtain an independent test of the revised 
tables, an oil of commercial importance which was not 
included in the NBS data set was studied. The steps of 
this study are described below. 


1. An oil sample of Prudhoe Bay crude oil was supplied 
by SOHIO. 

2. The experimental work was performed by Dr. James 
W. Gall of Phillips Petroleum Company. 


a. The sample was chilled to 50°F, settled and the 
upper portion siphoned off. This step removed 
any wax that formed at 50°F and the assorted 
solids in the original sample. 

. The oil densities were measured on a Mettler/ 
Paar high precision densitometer. The instrument 
was calibrated with both water and nitrogen at 
each temperature and pressure for which the oil 
density was measured. The calibration was con- 
firmed using pentane. 


GASOLINES 


1.8 2.0 2.2 2.4 


(1lp_2) X 108 [kgim sy? 


Figure X-7 — Products Tables (TABLES B) 
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3. The experimental results were tested against the new 
correlation by: 
a. The constants for the thermal expansion coeffi- 
cients equation were fixed at the generalized 
values for crude oil. 


Ko = 341.0957 
Ky = 0.0 


b. Weighting factors of unity were applied to the 
first five points of data since they are in the NBS 
data set temperature range. Weighting factors of 
0.0001 were applied to the remaining four points. 
This step insured that the single parameter, the 
60°F density, was not influenced by the data in the 
extrapolation region of the model. 

c. Anonlinear regression routine was used to fit the 
data to the TABLE 6 modei and determine the 
missing parameter, the 60°F density. 


The results are shown in Table X-9. The first five 
points of data were fit to a 0.0277 percent standard 
deviation; all points exhibit a 0.0365 percent standard 
deviation. These deviations are well within the 95 per- 
cent confidence limits given in the precision statement 
of the model and validate both the basic model and the 
temperature extrapolation. 


Comparison of the Old and New Tabies 


The goal of the working group was to develop the 
revised tables based on the most recent data, not to be 
influenced by comparisons with the old table. However, 
after the developmental effort was completed, a limited 
number of such comparisons were made for instruc- 
tional purposes. 


Table X-9—Prudhoe Bay Oil Density (P = 24.8 psia) 


Temperature Density, kg/m? Percent 

°C °F Experimental Calculated error 
10.13 §0.234 897.36 896.931 —.0477 
20.04 68.072 889.92 890.012 .0225 
29.96 85.928 883.00 883.272 .0309 
39.89 103,802 876.36 876.389 .0033 
50.08 122.144 869.373 869.291 — 0088 
60.20 140.360 862.530 862.225 0353 
70.13 158.231 855.671 855.262 00478 
80.00 175.00 848.742 848.710 .00379 
89.72 193.496 842.032 841.459 .0680 


Average Absolute Average Percent 


Summary Percent Error Standard Deviation 
1st 5 points 02264 0277 
All points 03759 .0365 


Pso = 893.207 kg/m?. 


Table X-10—Average Error in the 
Previously Published Table 6 


Percent Over Actual at 60°F 
Fluid 90°F 120°F 150°F 


Crude oils 
20°API 0.01 0.04 0.09 
30°API 0.07 0.16 0.26 
40°API 0.09 0.21 0.32 
Products 
20°API 0.06 0.14 0.25 
40°API 0.04 0.11 0.18 
60°API 0.19 0.41 0.62 


Figure X-8 shows the comparison of the volume cor- 
rection factors of the old and new tables relative to the 
experimental data on the Prudhoe Bay crude. Table 
X-10 presents a representative sample of a comparison 
made between the NBS data and the previously pub- 
lished TABLE 6. 


Example Calculations 


A comprehensive set of example calculations are pre- 
sented by Hankinson et al. (1979). In addition, sections 
containing example calculations are presented with the 
text accompanying each individual table in Volumes I 
through IX. 


Special Considerations 
INFORMATION DISSEMINATION 


To maximize the convenience of use and to provide 
the greatest degree of flexibility in application, the 
tables will be issued in several formats: 


Hardcopy printed tables. 

Microfiche of printed tables. 

Printed listings of the computer subroutines. 

Card decks of the computer subroutines. 

. Magnetic tapes containing the computer subrou- 
tines. 


VPN 


PRINTED TABLES 


The printed tables are presented at increments de- 
signed to minimize the need for manual interpolation. 
These, by mutual agreement among working group 
members and with approval of both COSM and COPM, 
are: 


°F 0.5 

°C 0.25 
°API 0.5 
Relative density 0.0020 
kg/m? 2.0 
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COMPUTER SUBROUTINES 


The computer subroutines reproduce the basic ex- 
perimental data to the precision specified in this report. 
The increments available from these subroutines are: 


°F 0.1 

°C 0.05 
°API 0.1 
Relative density 0.0005 
kg/m? 0.50 


The rounding procedures and the limits on the preci- 
sion of the subroutine inputs are discussed fully in the 
companion documents describing each subroutine. 


IMPLEMENTATION PROCEDURES 


The working group for the revision realized the im- 


CALCULATED MINUS 
EXPERIMENTAL, 
VOLUME 
PERCENT 


40 60 80 100 


portance of minimizing future problems involving 
changes in computer software and hardware. Hence, 
explicit implementation procedures were developed 
which describe the precise calculational sequences and 
the exact rounding technique used in the representation 
of the equations. These implementation procedures are 
the specific Standard rather than equations, subrou- 
tines, or hardcopy printout. 


A detailed implementation procedure is given for 
each of the fifteen separate tables. Absolute adherence 
to the outlined procedures will insure that all computers 
and computer codes of the future, meeting the stated 
specifications and restrictions, will be able to produce 
identical results. Such a procedure provides for the 
maximum machine and code independence. A valida- 
tion of the 1980 computer subroutines is documented by 
the following letters. 


TABLE 6 PREVIOUSLY PUBLISHED 
o-——* 


4 


95% CONFIDENCE 
PRECISION 


TABLE 6A 


120 140 160 180 200 


TEMPERATURE, °F 


Figure X-8 — Prudhoe Bay Crude, August 1979 Data 
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Mobil Research and Development Corporation 


April 25, 1980 
Drs Re W. Hankinson sania aia 
Philt ips Petroteum Company DALLAS, TEXAS 75221 


Bartlesville, OK 74004 
ROBERT J. WATSON 
MANAGER 


Dear Dr. Hankinson: 
FIELD RESEARCH LABORATORY 


The testing of all subroutines involved in the revision of TABLE 6 (API Standard 
2540) has now been completed. The testing procedure was so designed as to 
confirm the fact that the subroutines would produce the identical results on 

all computers available today having a 32 bit or larger word size and a FORTRAN 
compiler. The testing procedure is given below. 


a) A magnetic tape containing driver programs and all subroutines 
(TAB5A, TAB5B, TAB6A, TAB6B, TAB6C, TAB23A, TAB23B, TAB24A, TAB24B, 
TAB24C, TAB53A, TAB53B, TAB54A, TAB54B, TAB54C) was sent to T. A. 
Coker (Phillips Petroleum Company with an IBM 370, 32 bit word) and 
to David Johnson (Shell Development Corporation with a UNIVAC 1110, 
36 bit word). 


b) The programs contained on the tape were run (without modification) 
at the two testing installations. Alt! output was diverted to magnetic 
tape and returned to Mobi! Research and Development Corporation in 
Dallas. 


c) The identical programs were executed at the Dallas site (on a CDC 
175) and the output was diverted to what will be referenced as the 
"master" tape. 


d) The tapes received from Phillips and Shell were compared via a computer 
program against the "master" tape. The comparison was on character-by- 
character basis which would accurately show any discrepancy between 
the entries of the tables on the tapes. 


e) All lines that showed discrepancies were printed for visual comparison. 


In summary, no lines within the body of the tables were printed from any of the 
tapes. Therefore, there were no differences among the results produced on any 
of the machines. This test confirms that the subroutines, if unaltered, will 
accurately reproduce the new API Standard 2540 tables on computers with a 32 
bit or larger word and a FORTRAN Compiler. 


Very truly yours, 


SK Veet 


ren |. West 


KW/ it 
attach. 


co: Je Ke Walters, AP} 
C. M. Owen, Sohio Pipeline 
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Mobil Research and Development Corporation 


RESEARCH DEPARTMENT 
PO BOX 900 
DALLAS, TEXAS 75221 


ROBERT J WATSON 


June 13, 1980 MANAGER 
FIELD RESEARCH LABORATORY 


Dr. Re We Hankinson 

Phillips Petroleum Co. 

308 TRW Building 
Bartlesville, Oklahoma 74004 


Dear Dre Hankinson: 


As a result of the completion of the statistical testing phase we 
jointly agreed upon, it has come to my attention that certain 
updates need to be made to the computer subroutines which will be 
issued by the API as part of the 1980 revision of API Standard 
2540. The updates concern the handling of break points and bound- 
ary conditions between the even numbered subroutines and the odd 
numbered subroutines, affecting only the number and range of 
points produced in limited sections of the subroutines. These 
changes will affect no answers within the official precision 
statement as contained in the balloted standards. 


Attached you will find a list of the updates. In all cases the 
first line will give the line of code and corresponding sequence 
number found in the tistings in Volume X of the Petroleum Mea- 
surement Manual, First Edition, followed by a second line of code 
containing the change. 


Si rely yours, 
eo h/t 
Kel. West 


KIW: sd 


cco: Te Ae Coker 
A. De Powel | 
R.» G. Segers 
J. Ke. Walters 


Copyright por American Petroleum Institute 
Mon Feb 07 13:42:05 2005 


API MPMS*11-1 VOL*X 80 MB 0732290 0525949 965 


X-B4 CHAPTER 11—PHYSICAL PROPERTIES DATA 

current: C BREAK P@INTS FOR RELATIVE DENSITY (27790 AND .8245) 23A00750 
updated: C BREAK P@INTS FOR RELATIVE DENSITY (.7795 AND -8250) 23A00730 
current: DATA IBP1, IBP2 / 7790, 8245 / 23A00740 
updated: DATA IBP1, IBP2 / 7795, 8250 / 23A00740 
current: C iS SG GREATER THAN .7790 (JF YES, BRANCH T@ 790) 23A01980 
updated: C iS SG GREATER THAN .7795 (1}F YES, BRANCH T@ 790) 23A0 1980 
current: C 1S SG GREATER THAN .8245 (IF YES, BRANCH T@ 810) 23A02020 
updated: C 1S SG GREATER THAN .8250 (IF YES, BRANCH T@ 810) 23A02020 
current: C BREAK P@INTS F@R REL DEN RANGES ( .7790 AND .8245 ) 25800710 
updated: C BREAK P@INTS F@R REL DEN RANGES ( «7795 AND .8250 ) 23B00710 
current: DATA IBP1, IBP2 / 7790, 8245 / 23B00720 
updated: DATA IBP1, IBP2 / 7795, 8250 / 23800720 
current: C 1S SG GREATER THAN .7790 CIF YES, BRANCH T@ 70) 23B01200 
updated: C 1S SG GREATER THAN «7795 (1F YES, BRANCH T% 70) 23B01200 
current: C iS SG GREATER THAN .8245 (IF YES, BRANCH T@ 90) 23B01240 
updated: C 1S SG GREATER THAN .8250 (IF YES, BRANCH T@ 90) 23B0 1240 
current: C 1S RH@ LESS THAN 650. (IF YES, BRANCH T@ 1200) 53B01 160 
updated: C 1S RH@ LESS THAN 653. CIF YES, BRANCH T@ 1200) 53B01160 
current: IF ¢ IRH@ - 65000 ) 1200, 40, 40 53B01170 
updated: iF ( IRH@ - 65300 ) 1200, 40, 40 53B01170 
current: DATA IBP1,1BP2/7785,8245/ 54A00930 
updated: DATA |BP1, 1BP2/7785 ,8240/ 54A00930 
current: DATA IBP1,1BP2/7790 ,8245/ 54B00930 
updated: DATA |IBP1,1BP2/7785,8240/ 54B00930 
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HYDROMETER CORRECTIONS 


The hardcopy version of TABLES 5, 23, and 53 in- 
clude the appropriate stem correction for the thermal 
expansion of a glass hydrometer. These corrections are 
given by: 


TABLES 5 and 23 


HYC = 1.0 — 0.00001278(t—60) 
— 0.0000000062(t-60)? 
t= °F 
TABLE 53 
HYC = 1.0 — 0.000023(t—15) 
— 0.00000002(r—- 15)? 
t=°C 


The subroutines for these tables contain an override 
switch allowing the user to omit the correction. Such an 
override capability is necessary if the observed densities 
or gravities are obtained from an absolute densitometer 
rather than a temperature dependent hydrometer. 


DENSITY AND RELATIVE DENSITY 


The term ‘‘weight in air’”’ is that weight which a quan- 
tity of fluid appears to have when weighed in air against 
commercial weights which have been standardized so 
that each will have a mass (weight in vacuo) equal to the 
nominal mass associated with it. The term ‘‘weight in 
vacuo” refers to the true mass of a fluid. 


It should be noted that pure fluid densities as re- 
ported in the literature and which are normally used for 
the calibration of densitometers are almost always 
based on “weight in vacuo.” Hence, the densitometer 
readings obtained from such calibrations are also “in 
vacuo” values. The densities referred to in this work are 
all ‘tin vacuo” values. 

Following the convention specified in 15.2.4.8 of API 
Publication 2564, Second Edition (in press), and with 
the concurrence of the Institute of Petroleum, the term 
“specific gravity” has been discontinued. It has been 
replaced with the term “relative density.” Relative 
density is a relationship defined by the ratios of the 
volume of fluid to the volume of water where both 
volumes are ‘“‘in vacuo”’ values determined at identical 
temperatures. 
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11.1.6.1 TABLE 6A—GENERALIZED CRUDE OILS, 
CORRECTION OF VOLUME TO 60°F 
AGAINST API GRAVITY AT 60°F 


TABLE 6A gives volume correction factors for con- 
verting crude oil volumes observed at temperatures 
other than 60°F to corresponding volumes at 60°F. 

The volume correction factors given in this table are 
the result of a computer procedure which is the Stan- 
dard (see 11.1.6.2 and 11.1.6.3). All of these volumes 
are at saturation conditions. Pressure corrections from 
saturation are not included. 

The temperature ranges of this table are: 


°API °F 
Oto 40 0 to 300 
40 to 50 0 to 250 
50 to 100 0 to 200 


The volume correction factors given in this table are 
based on data from the U.S. National Bureau of Stan- 


dards and from other published data. Portions of the 
gravity and temperature ranges represent areas beyond 
these data. Thus, mathematical techniques were em- 
ployed to extrapolate beyond the gravity and tempera- 
ture ranges of the given data to determine the volume 
correction factors for these areas. These factors are 
denoted by an asterisk (*). Extension of this table be- 
yond the ranges shown is not recommended. 

Increments used in this table for determining volume 
correction factors are 0.5°F and 0.5°API gravity. Inter- 
polation between either temperature or gravity is not 
intended since there is no practical method of interpola- 
tion that will produce the accuracy obtainable from the 
Standard. 


This table must be entered with a known API 
gravity at 60°F and with an observed temperature. 


11.1.6.2 PROGRAM DOCUMENTATION FOR SUBROUTINE 
TAB6A—GENERALIZED CRUDE OILS, CORRECTION OF VOLUME 


TO 60°F AGAINST API GRAVITY AT 60°F 


The thermal expansion properties (volume correction factors, VCF's) for 


products (exctuding lube stocks) and crudes are correlated in two separate 
generalized tables as a function of temperature and API gravity. The pre- 


dicted precision at 95% confidence is: 


VCF Precision at 95% Confidence, % 
100 °F 150 °F 200 °F 250 °F 


+0.05 015 025 235 


Temperature 


Crudes & Products 


If this precision is unacceptable, it is recommended that the actual thermal 
expansion properties of the substance be measured and the VCF be determined 
using TABLE 6C with either K or alpha values derived from the measured data. 


The instructions for this procedure are given in TABLE 6C. 
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ABSTRACT 
Subroutine Title: TAB6A - TABLE 6A, Generalized Crude Oils, 


Volume Correction to 60 °F. 


Description: This subroutine is designed to calculate the 
volume correction factor required to convert 
a volume at an observed temperature to the 
corresponding volume at 60 °F assuming the 


substance can be characterized as a crude oil. 


Program Responsibility: American Petroleum Institute 
Measurement Coordination 
2101 L Street, NW. 
Washington, DeC. 20037 


Date Issued: August 1980 
Language: FORTRAN, ANSI/ASA Standard 
Reference: AP| Standard 2540, TABLE 6, 11.1.6 


THIS SUBROUTINE WAS DEVELOPED USING THE MATHEMATICAL ALGORITHMS 
AND SPECIFICATIONS DESCRIBED IN THE DOCUMENT PROCEDURE 11.1-6-3- 
ANY MODIFICATIONS TO THIS SUBROUTINE MUST RIGIDLY ADHERE 
TO THE SAME ALGORITHMS AND SPECIFICATIONS. 


11.21.6.2.1 Introduction 


TABGA is a computer subroutine designed to calculate the volume correc- 
tion factor (VCF) necessary to convert a volume of a generalized crude at a 


specified temperature in degrees Fahrenheit (°F) and of a specified 60 °F 
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gravity in degrees API (°API) to the equivalent volume at 60 °F. The subrou- 
tine accepts as input the API gravity at 60 °F rounded to the nearest 0.1 °API 
and the observed temperature rounded to the nearest 0.1 °F. ‘If either input 
value has not been properly rounded, the subroutine will round the values and 
return the corrected values. The subroutine returns one value of VCF with 5 
Significant figures of accuracy for computation purposes and another VCF value 
rounded to four decimal places for printing purposes. The subroutine also 
outputs a status code for user convenience. The code is set to -1 if an error 
condition occurs and to +1 if the input values are outside the !imits of the 
correlation. A status code of zero is returned if the input values are within 
the limits of the correlation. The limits of the correlation including the 
extrapolated region are depicted in Figure X-3. The calling program must check 
the flag and provide the user with appropriate warning messages or program 


termination. 


1161-26-2-2 Subroutine Specifications 


The range of application: ° AP | Temperature, °F 
0.0 to 40.0 0.0 to 300.0 
40.1 to 50.0 0.0 to 250.0 
50.1 to 100.0 0.0 to 200.0 
Referenced modules; RHOA, ALPHAA, VCF6A, SDIVA, MPYA 
FORTRAN functions: FLOAT 


Average execution time: 1890 VCF entries/CPU second 
1BM 370/168 


The subroutines are written in ANSI/ASA FORTRAN using integer arithmetic. The 


size and storage requirements are: 


1. Compilable source statements 111 
2. Decimal storage bytes 2966 
3. Words 742 


Copyright por American Petroleum Institute 
Mon Feb 07 13:42:06 2005 


API MPMS¥*11-1 VOL*X 60 MM 0732290 0525954 225 


SECTION 1—VoLUME CORRECTION FACTORS X-89 


11.1.6.2.3 Calling Sequence 


CALL TAB6A (API60, DEGF, VCFC, VCFP, IFLAG) 
INPUT DESCRIPTION 


AP!160 - API gravity at 60 °F 
(API60 returned will be rounded to nearest 0.1 °API) 


DEGF - Observed temperature, °F 


(DEGF returned wil! be rounded to nearest 0.1 °F) 
OUTPUT DESCRIPTION 


VCFC - Output VCF rounded to 5 significant figures for computational 
purposes 
i.e. VCFC = 1.XXXX 
or VCFC = 0.XXXXX 


VCFP - Output VCF rounded to 4 decimal places for printing purposes 
jee. VCFP = 1.XXXX 
or VCFP = 0.XXXX 


IFLAG - Status Code 
0: Indicates input variables are within the range of appli- 
cation. 
1; Input data outside limits of correlation as given in 


11.1.6. 


-1: Indicates input API160 or input DEGF outside range of 
application as given in 11.1.6; VCFC and VCFP set to 
-1,0000. 
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11.1.6.2.4 Method of Calculation 
The subroutine evaluates the equation 


VCF = EXPI- 469 AT(1 + 0.8 G6 ATt)] 


where At = DEGF - 60.0 


Ko Ky 
o = OT a 
60 


141.5 * 999.012 


° 60 ~ API60 + 131.5 


999.012 = density of water at 60 °F, Kg/m> 


A full explanation of the equations and the parameters Kg and Ky may be found 


in API Standard 2540, TABLE 6, 11.1.6. 


11.1.6.2.5 Examples 


These examples are tutorial in nature and are not intended to be sufficient 
for subroutine checkout. The examples given in procedure 11.1.6.3 are to be 


used for the computer checkout. 


Example 1 
API60 = 37.02 


DEGF = 90.47 
CALL TAB6A (API60, DEGF, VCFC, VCFP, IFLAG) 
After the call: AP!60 = 37.0 


DEGF = 90.5 
VCFC = .98516 
VCFP = 2.9852 
IFLAG = 0 


Copyright por American Petroleum Institute 
Mon Feb 07 13:42:07 2005 


Example 2 


Example 3 


API MPMS*11.1 VOL*X 80 MM 0732290 0525956 OTS 


API60 = 47.5 
DEGF 240.0 


SECTION 1—VOLUME CORRECTION FACTORS 


CALL TAB6A (API60, DEGF, 


After the call: 


API60 = 37.0 
DEGF = 500.0 


CALL TAB6A (AP!60, DEGF 


After the call: 
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API60 
DEGF 
VCFC 
VCFP 
| FLAG 


AP 160 
DEGF 
VCFC 
VCFP 
I FLAG 


, 


VCFC, VCFP, IFLAG) 
47.5 

240.0 

89925 

28992 

1 


VCFC, VCFP, IFLAG) 
37.0 

500.0 

-1.0000 

- 1.0000 

-| 


X91 
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11.1.6.2.6 FLOWCHART 


INPUT: API GRAVITY 
OBSERVED TEMPERATURE 


ROUND INPUT DATA 
TO SPECIFICATION 


CHECK 
TO SEE IF 
DATA WITHIN 
BOUNDS OF 
TABLE 


No SET VCF = -1,0000 
ERROR FLAG IERR = -] 


RETURN 


CALCULATE RHO 


CALCULATE VCF 


CALCULATE ALPHA 


'S DATA IN 
EXTRAPOLATED 
REGION? 


SET ERROR SET ERROR 
FLAG = 0 FLAG = 1 


RETURN 
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11.1.6.2.7 Subroutine Listing 
TAB6A This subroutine serves as the input/output routine to 
the subsequent modules necessary in the calculation of 
volume correction factor from API gravity at 60 °F and 
observed temperature. 
Referenced Modules 
ALPHAA This module is designed to calculate alpha for use in 
determination of volume correction factor. 
MPYA This module performs integer multiplication with a maxi- 
mum of 17 digits. 
RHOA This module is designed to calculate a density value for 
a given value of API gravity by the formula 
141.5 * 999.012 
P = (API60 + 131.5) 
SDIVA This modulte is designed to produce additional accuracy 
from an integer divide where the numerator is 10000 
greater than the denominator. 
VCF6A This module is designed to calculate volume correction 
factor. 
SUBROUTINE TAB6A(API60,DEGF ,VCFC,VCFP, IFLAG) 6A000010 
Cc 6A000020 
Cc (C)COPYRIGHT 1980 6A000030 
Cc AMERICAN PETROLEUM INSTITUTE 6A000040 
Cc ALL RIGHTS RESERVED 6A000050 
Cc 6A000060 
Cc THIS SUBROUTINE IS A VOLUNTARY STANDARD AND WAS DEVELOPED 6A000070 
Cc UNDER THE AUSPICES OF THE JOINT API-ASTM COMMITTEE ON STATIC 6A000080 
Cc PETROLEUM MEASUREMENT IN PART FROM DATA GENERATED 6A000090 
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Cc BY A PROJECT FUNDED BY THE AMERICAN PETROLEUM 6A000100 
Cc INSTITUTE AT THE U.S. NATIONAL BUREAU OF STANDARDS, 6A000110 
Cc GAITHERSBURG, MARYLAND. 6A000120 
c 6A000130 
Cc INQUIRIES CONCERNING ITS APPLICATION SHOULD 6A000140 
Cc BE ADDRESSED TO: 6A000150 
Cc AMERICAN PETROLEUM INSTITUTE 6A000160 
Cc MEASUREMENT COORDINATION 6A000170 
Cc 2101 L STREET, N.W. 6A000180 
Cc WASHINGTON, DC 20037 6A000190 
Cc 6A000200 
Cc Ae A aK He Ae Oe as Ne Me Me a ae AE Te NE He De Ae NE ais ae ae Ae ae Df aie aie aie de ae ie OH OE ie Oe ME a ae Oe oe ae Ok He ae ae ae oe ake ke kk ae oe oe ok oe ok ake of 6A000210 
Cc * x 6A000220 
Cc * THIS SUBROUTINE OR THE MATHEMATICAL RELATIONSHIPS * 6A000230 
Cc * REPRESENTED THEREBY MAY BE USED BY ANYONE WISHING * 6A000240 
Cc * TO DO SO, BUT THE AMERICAN PETROLEUM INSTITUTE, * 64000250 
Cc * THE AMERICAN SOCIETY FOR TESTING AND MATERIALS, = 6A000260 
Cc * AND THE INSTITUTE OF PETROLEUM AND THEIR ‘ 6A000270 
G = RESPECTIVE MEMBERS AND THE U.S. NATIONAL BUREAU * 6A000280 
Cc * OF STANDARDS, SHALL NOT BE HELD RESPONSIBLE OR ® 6A000290 
Cc * LIABLE IN ANY WAY FROM LOSS OR DAMAGE, INCLUDING, . 6A000300 
Cc * BUT NOT LIMITED TO, CONSEQUENTIAL DAMAGE , i 6A000310 
Cc * RESULTING FROM SUCH USAGE OR FOR VIOLATION OF * 6A000320 
Oa ANY FEDERAL, STATE, OR MUNICIPAL LAWS, REGULATIONS * 6A000330 
Cc * OR PRACTICES OF THE UNITED STATES OR OF ANY ¥ 6A000340 
Cc * FOREIGN COUNTRY. : 6A000350 
Cc * = 6A000360 
Cc Be ae oe ae ae ae oie ae ake ae ole ake ake ake ale ake aie oe oie ale a ke ee ae ke de ake ote ake ake ie ae ee eae oe le ae ae ale ole ale ae ke ake He aie oe ate ak ok ak ge oie ake ak ok ok 6A000370 
Cc 6A000380 
Cc THE THERMAL EXPANSION PROPERTIES (VOLUME CORRECTION FACTORS, 6A000390 
Cc VCFS) FOR PRODUCTS (EXCLUDING LUBE STOCKS) AND CRUDES 6A000400 
Cc ARE CORRELATED IN TWO SEPARATE, GENERALIZED TABLES 6A000410 
Cc AS A FUNCTION OF TEMPERATURE AND API GRAVITY. THE 6A000420 
Cc PREDICTED PRECISION AT 95 PERCENT CONFIDENCE IS: 6A000430 
c 6A000440 
Cc VCF PRECISION AT 95 PERCENT CONFIDENCE, PERCENT 6A000450 
Cc 6A000460 
Cc TEMPERATURE 100F 150F 200F 250F 6A000470 
Cc CRUDES, PRODUCTS 0.05 0.15 0.25 0.35 6A000480 
Cc 6A000490 
Cc IF THIS PRECISION IS UNACCEPTABLE, IT IS RECOMMENDED 6A000500 
Cc THAT THE ACTUAL THERMAL EXPANSION PROPERTIES OF THE 6A000510 
Cc SUBSTANCE BE MEASURED AND THE VCF BE DETERMINED 6A000520 
Cc USING TABLE 6C WITH EITHER K OR ALPHA VALUES DERIVED 6A000530 
Cc FROM THE MEASURED DATA. THE INSTRUCTIONS FOR THIS 6A000540 
Cc PROCEDURE ARE GIVEN IN TABLE 6C. 6A000550 
Cc 6A000560 
Cc THIS SUBROUTINE IS DESIGNED TO ACCEPT AS 6A000570 
Cc INPUT API GRAVITY VALUE AT 60 F(API60) AND 6A000580 
Cc OBSERVED TEMPERATURE IN DEGREES FAHRENHEIT(DEGF) AND 6A000590 
Cc PRODUCE THE VOLUME CORRECTION FACTOR (VCF) FOR 6A000600 
Cc API TABLE 6A, GENERALIZED CRUDE OILS 6A000610 
Cc VOLUME CORRECTION FACTOR TO 60 F. 6A000620 
Cc 6A000630 
Cc THIS SUBROUTINE CALLS THE FOLLOWING MODULES 6A000640 
Cc RHOA 6A000650 
Cc ALPHAA (CALLS SDIVA) 6A000660 
Cc VCF6A (CALLS MPYA) 6A000670 
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CG 6A000680 
Cc API60 SHOULD BE PASSED IN THE NEAREST TENTH 6A000690 
Cc OF DEGREE API. THE SUBROUTINE WILL HOWEVER ROUND 6A000700 
Cc THE VALUE AND RETURN THE CORRECTED VALUE. 6A000710 
Cc 6A000720 
Cc DEGF SHOULD BE PASSED IN THE NEAREST TENTH 6A000730 
Cc OF DEGREE FAHRENHEIT. THE SUBROUTINE WILL HOWEVER 6A000740 
Cc ROUND THE VALUE AND RETURN THE CORRECTED VALUE. 6A000750 
Cc 6A000760 
Cc VCFC IS THE RETURNED VOLUME CORRECTION FACTOR 6A000770 
Cc CORRECT TO FIVE(5) SIGNIFICANT FIGURES. 6A000780 
Cc 6A000790 
C VCFP IS THE RETURNED VOLUME CORRECTION FACTOR 6A000800 
Cc CORRECT TO FOUR(4) DECIMAL DIGITS. 6A000810 
Cc 6A000820 
Cc IFLAG IS THE ROUNDED STATUS CODE WHICH SHOULD 6A000830 
Cc BE CHECKED BY THE USER IN THE CALLING PROGRAM 6A000840 
Cc =0Q NO ERROR 6A000850 
Cc =1 INPUT DATA WITHIN EXTRAPOLATION RANGES AS 6A000860 
Cc GIVEN IN API 2540, TABLE 6,11.1.6 6A000870 
Cc =-1 INPUT DATA OUTSIDE SPECIFIED RANGE OF 6A000880 
Cc APPLICATION AS GIVEN IN API 2540, 6A000890 
c TABLE 6,11.1.6 6A000900 
Cc 6A000910 
DATA IBAS/600/ 6A000920 

DATA IBP1, IBP2/400,500/ 6A000930 

DATA NBP1/1000/ 6A000940 

DATA ITMP1 , ITMP2, ITMP3/3000, 2500, 2000/ 6A000950 

DATA IEP1,IEP2, IEP3/2500, 2000,1500/ 6A000960 

DATA IEAPI/550/ 6A000970 

DATA KO,K1/3410957 ,0/ 6A000980 

Cc 6A000990 
VCFC=- 1.0000 6A001000 
VCFP=-1.0000 6A001010 
IFLAG=-1 6A001020 

Cc 6A001030 
Cc ROUND INPUT PARAMETERS 6A001040 
Cc 6A001050 
ITAPI=API60*10.0+0.5 6A001060 
API60=FLOAT(IAPI)/10.0 6A001070 
ITEMP=DEGF*10.0+0.5 6A001080 
DEGF=FLOAT(ITEMP)/10.0 6A001090 

C 6A001100 
Cc CHECK API RANGES 6A001110 
Cc 6A001120 
IF(IAPI)10,20,20 6A001130 

10 CONTINUE 6A001140 
RETURN 6A001150 

20 IF(IAPI-NBP1)30,30,10 6A001160 

30 CONTINUE 6A001170 

Cc 6A001180 
Cc CHECK VALID TEMPERATURE RANGES 6A001190 
Cc 6A001200 
IDT=ITEMP - TBAS 6A001210 

IF( ITEMP)40 ,50,50 6A001220 

40 CONTINUE 6A001230 
IFLAG=- 1 6A001240 
RETURN 6A001250 
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50 IF(IAPI-IBP1 )60,60,70 6A001260 
60 IFC ITEMP-ITMP1 )100,100,40 6A001270 
70 IF(IAPI-IBP2)80, 80,90 6A001280 
80 IF( ITEMP-ITMP2)100,100,40 6A001290 
90 IF(ITEMP-ITMP3)100,100,40 6A001300 
100 CONTINUE 6A001310 
Cc 6A001320 
C CALCULATE RHO 6A001330 
Cc 6A001340 
CALL RHOA(IAPI, IRHO) 6A001 350 
Cc 6A001360 
Cc CALCULATE ALPHA 6A001370 
Cc 6A001380 
CALL ALPHAA( IRHO,KO,K1,IALF) 6A001390 
Cc 6A001400 
Cc CALCULATE VCF 6A001410 
Cc 6A001420 
CALL VCF6ACIALF ,IDT, IVCF) 6A001430 
IFLAG=0 6A001440 
Cc 6A001450 
Cc CHECK TO DETERMINE IF IN EXTRAPOLATED REGION 6A001460 
Cc 6A001470 
IF( IAPI-ITEAPI)170,170,160 6A001 480 
160 CONTINUE 6A001490 
IFLAG=1 6A001500 
GO TO 220 6A001510 
170 IF(IAPI-IBP1 )180,180,190 6A001520 
180 IFC ITEMP-IEP1)220,220,160 6A001530 
190 IF(IAPI-IBP2)200,200,210 6A001540 
200 IF(ITEMP-IEP2)220, 220,160 6A001550 
210 IF(ITEMP-IEP3)220,220,160 6A001560 
220 CONTINUE 6A001570 
Cc 6A001580 
CG CALCULATE PRINT AND CALCULATION VALUES OF VCF 6A001590 
CG PRINT VALUE(PVCF)ROUNDED TO 4 DECIMAL DIGITS 6A001600 
Cc CALCULATION VALUE(CVCF) ROUNDED TO 5 SIGNIFICANT DIGITS 6A001610 
Cc 6A001620 
JVCF=(IVCF/1000+5)/10 6A001630 
PVCF=JVCF 6A001640 
PVCF=PVCF/10000. 6A001650 
IF (IVCF -100000000 )230 , 240, 240 6A001 660 
230 CONTINUE 6A001670 
Cc 6A001680 
Cc VCF LESS THAN ONE, FIVE DECIMALS RETURNED 6A001690 
Cc 6A001700 
JVCF=(IVCF/100+5)/10 6A001710 
CVCF=JVCF 6A001720 
CVCF=CVCF/100000. 6A001730 
GO TO 250 6A001740 
240 CONTINUE 6A001750 
CVCF=PVCF 6A001760 
250 CONTINUE 6A001770 
VCFP=PVCF 6A001780 
VCFC=CVCF 6A001 790 
RETURN 6A001800 
END 6A001810 
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SUBROUTINE RHOA(CTIAPI , IRHO) 6A001820 
Cc 6A001830 
c THIS MODULE IS DESIGNED TO CALCULATE A DENSITY 6A001840 
Cc VALUE FOR A GIVEN VALUE OF API BY THE FORMULA 6A001850 
Cc RHO=141.5*999.012/(API+131.5) 6A001 860 
Cc IT IS ASSUMED THAT THE API VALUE HAS BEEN ROUNDED 6A001870 
Cc TO THE NEAREST TENTH DEGREE API AND THE VALUE MULTIPLIED 6A001880 
Cc BY 10. THE OUTPUT VALUE OF RHO WILL BE RETURNED 6A001890 
Cc AS AN INTEGER AND ROUNDED TO THE NEAREST HUNDREDTH 6A001900 
Cc KILOGRAM/CUBIC METRE. 6A001910 
Cc 6A001920 
Cc THE VALUE 1413601980 REPRESENTS 141 .5*999.012*10000 6A001930 
C CORRECT TO 10 DIGITS 6A001940 

IDENOM=IAPI+1315 6A001950 

IRHO=(1413601980/ IDENOM+5)/10 6A001960 

RETURN 6A001970 

END 6A001980 

SUBROUTINE SDIVA(INUM, IDENOM, IRES) 6A001990 
Cc 6A002000 
Cc THIS MODULE IS DESIGNED TO PRODUCE ADDITIONAL 6A002010 
Cc ACCURACY FROM AN INTEGER DIVIDE WHERE THE NUMERATOR 6A002020 
Cc IS 10000 GREATER THAN THE DENOMINATOR. THE SUBROUTINE 6A002030 
CG ASSUMES PROPER SCALING OF BOTH THE INPUT NUMERATOR 6A002040 
G AND DENOMINATOR AND WILL RETURN THE RESULTS MULTIPLIED 6A002050 
Cc BY 10000. 6A002060 
Cc 6A002070 

IRES1=INUM/ IDENOM 6A002080 

IRES2=( INUM- IRES1 * IDENOM) *10000/ IDENOM 6A002090 

IRES=IRES1 * 10000+IRES2 6A002100 

RETURN 6A002110 

END 6A002120 

SUBROUTINE ALPHAA(TRHO,KO,K1,IALF) 6A002130 
Cc 6A002140 
CG THIS MODULE IS DESIGNED TO CALCULATE ALPHA FOR 6A002150 
c USE IN DETERMINATION OF VOLUME CORRECTION 6A002160 
Cc FACTOR. 6A002170 
Cc 6A002180 
Cc INPUT VARIABLES 6A002190 
Cc IRHO=DENSITY*100 (KILOGRAMS/CUBIC METRE ) 6A002200 
Cc KO ,Ki= COEFFICIENTS OF DESIRED CURVE * 10000 6A002210 
Cc 6A002220 
Cc ALGORITHM- 6A002230 
Cc ALPHA=KO0 / RHO* *2+K1 /RHO 6A002240 
Cc 6A002250 
Cc CALCULATE K1/RHO 6A002260 
Cc 6A002270 

INUM=K1 *10000 6A002280 

CALL SDIVACINUM, IRHO, IALF1 ) 6A002290 
Cc 6A002300 
CG CALCULATE KOQ/RHO**2 6A002310 
Cc 6A002320 
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INUM=KO* 100 6A002330 
CALL SDIVA(INUM, IRHO, IALFS) 6A002340 
CALL SDIVA(CIALFS, IRHO, IALF2) 6A002350 
IALF=( TALF1+IALF2+500 )/1000 6A002360 
RETURN 6A002370 
END 6A002380 
SUBROUTINE VCF6A(IALF , IDT, IVCF) 6A002390 
Cc 6A002400 
Cc THIS MODULE IS DESIGNED TO CALCULATE VOLUME 6A002410 
Cc CORRECTION FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE 6A002420 
Cc AS INTEGERS, THE SUBROUTINE RETURNS WITH A 8 6A002430 
Cc OR 9 DIGIT VALUE DEPENDENT UPON WHETHER IDT 6A002440 
Cc IS POSITIVE OR NEGATIVE. 6A002450 
Cc 6A002460 
Cc ALGORITHM- 6A002470 
Cc VCF=EXP( -ALPHA*DT(1.0+0.8*ALPHA*DT) ) 6A002480 
Cc 6A002490 
Cc CALCULATE ALPHA*DT 6A002500 
Cc 6A002510 
ITERM1=IALF*IDT 6A002520 
Cc 6A002530 
Cc CALCULATE 0.8 *ALPHA *DT 6A002540 
CG 6A002550 
ITERM2=ITERM1 /5*4 6A002560 
Cc 6A002570 
Cc CALCULATE EXPONENT -ALPHA*DT(1.0+0.8*ALPHA*DT ) 6A002580 
Cc 6A002590 
CALL MPYACITERM1 , ITERM2, ITERM3) 6A002600 
IX=- (I TERM1+1ITERMS ) 6A002610 
Cc 6A002620 
Cc CALCULATE EXPONENTIAL(FIRST 7 TERMS OF POWER SERIES) 6A002630 
Cc 6A002640 
ISUM1=100000000+IX 6A002650 
CALL MPYA(IX,IX,ISUM2) 6A002660 
ISUM2=ISUM2/2 6A002670 
CALL MPYA( IX, ISUM2, ISUMS ) 6A002680 
ISUM3=ISUM3/3 6A002690 
CALL MPYA( IX, ISUM3, ISUM4) 6A002700 
ISUM4=ISUM4/4 6A002710 
CALL MPYA( IX, ISUM4 , ISUM5 ) 6A002720 
ISUM5=ISUM5/5 6A002730 
CALL MPYA( IX, ISUM5, ISUM6 ) 6A002740 
ISUM6=I1SUM6/6 6A002750 
IVCF=ISUM1+1ISUM2+1SUM3+1SUM4+ISUM5+ISUM6 6A002760 
RETURN 64002770 
END 6A002780 
SUBROUTINE MPYA(IX,1Y,IZ) 6A002790 
C 6A002800 
Cc THIS MODULE PERFORMS INTEGER MULTIPLICATION. THE TOTAL 6A002810 
Cc NUMBER OF DIGITS IN IX AND IY MUST NOT EXCEED 17. OTHER 6A002820 
Cc WISE, OVERFLOW WILL OCCUR. 6A002830 
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Cc 6A002840 
IUi1 = IX ¢ 10000 6A002850 
K1 = 10000 * IU1 6A002860 
Iv1 = IX - K1 6A002870 
Iu2 = IY / 10000 6A002880 
K2 = 10000 * [U2 6A002890 
Iv2 = IY - K2 6A002900 
K3 = IUt * IV2 + Iu2 * Iv1 + IV1 * IV2 / 10000 6A002910 
IZ = (K3 + 5000) / 10000 + IU1 * Tu2 6A002920 
RETURN 6A002930 
END 6A002940 


11.1.6.3 IMPLEMENTATION PROCEDURE FOR SUBROUTINE TAB6A 


In today's world there is a rapidly developing trend to use computers in 
custody transfer measurements, accounting work, process control systems, and a 
variety of other uses where tables must be incorporated into computer codes. 
Yet many of the printed tables are almost impossible to code due to the fact 
that someone has slight!y modified selected vatues to differ from those 
obtained using the mathematical expression that supposedly generated the 
tables. To overcome this problem it is often required to add extensive excep- 
tion tables to the codes. This makes the codes ftarge and cumbersome to modify, 
and restricts their use to larger computer systems. Also with the development 
of better measuring devices it is often possible to gain more digits of preci- 
sion in the table parameters, necessitating finer grid of the tabular values, 
resulting in larger volumes of printed tables to be hand!ted. 

In addition, as the on-line use of computers for metering purposes 
increases, the direct use of printed tables will decrease; therefore, The new 
Standard is an explicit implementation procedure rather than a set of equa- 
tions or a set of tables. I+ must be remembered that the standardization of 
the implementation procedure implies standardization of the set of mathemati- 


cal expressions used within the code. Absolute adherence to the procedure 


will help to insure that all computers and computer codes of the future, meet- 
ing the specifications and restrictions, will be able to produce the same 
results. It is believed that this procedure wil! allow for the maximum 


machine and code independence. The procedure was implemented in computer sub- 
routines issued by AP! in 1980 using ANSI/ASA FORTRAN. The subroutines maxi- 


mized precision by the use of 32-bit integer arithmetic. 
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The procedure as described in the following text can, by careful and 
deliberate application of numerical analysis, be used with the majority of 
languages and word sizes in present or anticipated use. To use the standard 
procedure means to maintain absolute and unwavering adherence to the number of 
digits specified at each step and to the calculation procedure as outlined. 

In the procedure, the nomenclature used is that of ASTM E380-76, unless 
an explicit procedure is given below, in which case the procedure given below 
overrides that given by ASTM E380-76. 

In the procedure the nomenclature (XXX.XX) means five (5) mathematical ly 
significant digits. 

The term rounding as used in the procedure means: Consider only the 
first digit to the right of the desired position and 

ae If that digit is greater than 4, increment the desired position by 

one and drop the remaining digits to the right of the desired posi- 
tion. 

bs If that digit is less than 5, simply drop the remaining digits to 

the right of the desired position. 


All constants are used to exactly the number of digits printed. 


Catculation Procedure 


STEP 1: Round input variables of AP! gravity and observed temperature 
a+ Round API gravity to the nearest 
O.1 °API and carry as 4 digit result 
16@e API gravity (API60) = XXX.X 
be Round observed temperature to the nearest 
0.1 °F and carry as 4 digit result 
i.e. observed temperature (DEGF) = XXX.X 


STEP 2: Conversion to density in Kg/m? 


define p = 141.5 * 999.012 
(AP160 + 131.5) 


Note: 141.5 * 999.012 = 141360.1980 and must be carried to 10 
significant digits. 
Round p to nearest 0.01 
i.e. p= XKEKEXX 
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STEP 3: Choose the appropriate values of Kg and Ky as described in API Stan- 
dard 2540, TABLE 6, 11.1.6 
Kg is a 7 digit constant 


iG. Kg = XXX -XXXX 
K1 is a 4 digit constant 
ieee Ky = oXXXX 


STEP 4: Calculation of alpha (coefficient of thermal expansion) 
define a= +t a 


Ko 
ae Evaluate BG: 
° K 
a(1) Compute _9 = .XXXXXXXX 
p 


K./0 
a(2) Compute _9. = .OOOXXXXXXX 
re) 


Ky 
b. Evaluate a 


K 
b(1)  _| = .O00XXXXXXX 


0 


ce. Sum results of a(2) and b(1) and round to nearest 0.0000001 
» OOOXXXX ; 


i.e. oO 


STEP 5: Calculate At 
define At = DEGF - Tpase 
Note: Tpasg carried to 3 digits XX.X (60.0) 
Carry At = KXX.X 


STEP 6: Calculation of VCF 
define VCF = EXP{[- aAt(1.0 + 0.8 aATt)] 
= EXPI- oAt - 0.8 a2 At?] 
a. Calculation of exponent 
a(1) aA tT = .XXXXXXXX 
a(2) «8 aA t = .XXXXXXXX 
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a(3) «8 a2 ATS = .OXXXXXXX 
a(4) -aAt - 0.8 a2 At2 = O.XXXXXXXX with any trailing 
digits dropped 
b. Calculation of exponential 
VCF = EXPI- oAt - 0.8 a4 At2] = X.XXXXXX 
using at least the first 7 terms of the power series expansion 


of eX 


Computational 


1.XXXX rounded to nearest 0.0001 if VCF > | 
value of VCF 7 


O.XXXXX rounded to nearest 0.00001 if VCF < 1] 


Table value 
of VCF 


XeXXXX rounded VCF to nearest 0.0001 


The 1980 integer FORTRAN code issued by API contained both an integer 
division and an integer multiplication algorithm. A description of each is 
contained in the following. 


INTEGER MULTIPLICATION PROCEDURE 
(FOR 32 BIT ARITHMETIC) 


DATA DEFINITION 


X, Y are integer numbers that are equal to or less than 2 * 10? 
(slightly less than 291). A larger value may cause overflow. [n addition, 
the total number of digits in X and Y must not exceed 17, otherwise overflow 
will occur. 

Z is the product XY scaled by 1078, i.e. Z = x¥/108, 

Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically, at least 15 digits are 
needed to obtain 6 digit precision, 16 for 7 and 17 for 8. 

The largest values of X and Y that may be used are 2 000 000 000 and 
99 999 999. 


CALCULATION 


X/10000 = Uy 
10000 Uy = Ky 
X- Ky = V1 
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Y/10000 = Uz 
10000 Us = Kg 
Y - Ko = V9 


(UyVa) + (UpV4) + (V 1V2/10000) = K3 
(Kz + 5000)/10000 + (UyU2) = 2 


Note: Z has been scaled by 10-8 and may have to be rescaled before use. 


TOTAL DIGITS IN X_AND Y 42 AB sae AS 6s». AE 
DIGITS IN PRODUCT, Z 3-4 4-5 5-6 6-7 7-8 8-9 


INTEGER DIVISION PROCEDURE 
(FOR 32 BIT ARITHMETIC) 


DATA DEFINITION 


X, Y are integer numbers such that X is equal to or less than 272 - | 


and Y is of order of magnitude 104 less than X. 


R is the quotient of X scaled by 104, i.e. R ae 104 | 
¥ 


Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically the more digits that are 


carried in both X and Y, the more accurate digits on output. 


CALCULATION 


x/Y = Uy 
UyY = Ky 
X~ Ky = Vq 
Vi/¥ = Up 


U, * 10000 + Up = R 


Note: R has been scaled by 104 and may have to be rescaled before use. 


Examples For Checkout 


The following examples are designed to aid in checkout procedures for 
both the existing API subroutine and any subroutines which are developed using 


the implementation procedure outlined above. The lines of The examples are 
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numbered to correspond to the corresponding lines within the calculation pro- 


cedure. 


EXAMPLE _1: 


Assume a crude oi! with an input API gravity corrected to 60 °F of 
24.99 °API and an observed temperature of 105.03 °F. 


Calculate the 


VCF required to correct the volume to 60 °F, correct to 4 decimal 


digits. 
STEP 1: ae rounded API60 = 25.0 
b. rounded DEGF = 105.0 
STEP 2: 9 rounded to nearest 0.01 Kg/m 
p = 903.26 
STEP 3: Kg = 341.0957 (as of May 1, 1980) 
Ky, = 0.0 (as of May 1, 1980) 
K 
‘STEP 4: a. Evaluate < 
fa) 
K 
a(1) 2 = 0.37762737 
re) 
K,./o 
a(2) 2 = 0.0004180716 
) 
K 
b. Evaluate wai) 
p 
K 
b(1) 1 = 0.0 
p 
Ce a = 0.0004181 
STEP 5: At = 45.0 
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STEP 6: Caiculation of VCF 

a. Calculation of exponent 
a(1) 0.01881450 
a(2) 0.01505160 
a(43) 0.00028318 
a(4) -0.01909768 

bs Calculation of exponential 
VCF = 0.981083 


VCF correct to 4 decimal digits = 0.9811 


EXAMPLE 2: Assume a crude oi! with an input AP! gravity corrected to 60 °F of 
50.0 °AP! and an observed temperature of 39.1 °F. Calculate the 
VCF required to correct the volume to 60 °F, correct to 5 signifi- 


cant figures. 


STEP 1: ae rounded API60 
be rounded DEGF 


50.0 
39.1 


STEP 2: o rounded to nearest 0.01 Kg/m? 


o = 778.84 
STEP 3: Kg = 341.0957 (as of May 1, 1980) 
K, = 0.0 (as of May 1, 1980) 


K 
STEP 4: ae Evaluate 2 
re) 


K 
a(1) 2 = 0.43795349 
0 


K./p 
a(z2) OO = 0.000562315 
fe) 


Copyright por American Petroleum Institute 
Mon Feb 07 13:42:10 2005 


API MPMS*11-1 VOL*X 60 MM 0732290 0525971 304 


X-106 CrapTer t1—PuysicaL Properties DATA 


K 
b. Evaluate —L 
p 


K 
b(1) —L = 0.0 
Pe) 
ce a = 0.0005623 
STEP 5: At = -20.9 


STEP 6: Calculation of VCF 

a. Calculation of exponent 
a(t) -0.01175207 
a(2) ~0.00940165 
a(3) 0.00011048 
a(4) 0.01164159 

be Calculation of exponential 
VCF = 1.011709 


VCF correct to 5 significant figures 1.0117 


EXAMPLE 3: Assume a crude oi! with an input API gravity corrected to 60 °F of 
8.7 °AP! and an observed temperature of 269.4 °F. Calculate the 
VCF required to correct the volume to 60 °F, correct to 5 signifi- 


cant figures. 


ul 


8.7 
269.4 


STEP 1: a. rounded AP {60 
b. rounded DEGF 


STEP 2: pp rounded to nearest 0.01 Kg/m? 


p = 1008.28 
STEP 3: Kg = 341.0957 (as of May 1, 1980) 
K1 = 0.0 (as of May 1, 1980) 


K 
STEP 4: a. Evaluate 2 
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STEP 6: 


be 


Ce 


At 
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K 
a(1) 2 = 0.33829462 
ie) 


K,/¢e 
a(2) OQ. = 0.0003355165 
p 


Ry 
Evaluate 


K 
b(1) WL = 0.0 
p 


a = 0.0003355 


= 209.4 


Calculation of VCF 


Calculation of exponent 
a(1) 0.07025370 

a(2) 0.05620296 

a(3) 0.00394846 

a(4) -0.07420216 
Calculation of exponential 
VCF = .928485 


VCF correct to 5 significant figures = 0.92848 
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11.1.6.4 TABLE 6B—GENERALIZED PRODUCTS, 
CORRECTION OF VOLUME TO 60°F 
AGAINST AP! GRAVITY AT 60°F 


TABLE 6B gives volume correction factors for con- 
verting product volumes observed at temperatures 
other than 60°F to corresponding volumes at 60°F. 

The volume correction factors given in this table are 
the result of a computer procedure which is the Stan- 
dard (see 11.1.6.5 and 11.1.6.6). All of these volumes 
are at saturation conditions. Pressure corrections from 
saturation are not included. 

The temperature ranges of this table are: 


°API °F 
0 to 40 0 to 300 
40 to 50 0 to 250 
50 to 85 0 to 200 
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The volume correction factors given in this table are 
based on data from the U.S. National Bureau of Stan- 
dards and from other published data. Portions of the 
gravity and temperature ranges represent areas beyond 
these data. Thus, mathematical techniques were em- 
ployed to extrapolate beyond the gravity and tempera- 
ture ranges of the given data to determine the volume 
correction factors for these areas. These factors are 
denoted by an asterisk (*). Extension of this table be- 
yond the ranges shown is not recommended. 

Increments used in this table for determining volume 
correction factors are 0.5°F and 0.5°API gravity. Inter- 
polation between either temperature or gravity is not 
intended since there is no practical method of interpola- 
tion that will produce the accuracy obtainable from the 
Standard. 


This table must be entered with a known API 
gravity at 60°F and with an observed temperature. 


11.1.6.55 PROGRAM DOCUMENTATION FOR SUBROUTINE TAB6B— 
GENERALIZED PRODUCTS, CORRECTION OF VOLUME TO 60°F 


AGAINST API GRAVITY AT 60°F 


The thermal expansion properties (volume correction factors, VCF's) for 


products (excluding lube stocks) and crudes are correlated in two separate 


generalized tables as a function of temperature and API gravity. 


dicted precision at 95% confidence is: 


The pre- 


VCF Precision at 95% Confidence, % 


Temperature 


Crudes & Products 


100 °F 
+0.05 


250 °F 
035 


200 °F 
025 


150 °°F 
015 


lf this precision is unacceptable, it is recommended that the actual thermal 
expansion properties of the substance be measured and the VCF be determined 
using TABLE 6C with either K or alpha values derived from the measured data. 


The instructions for this procedure are given in TABLE 6C. 
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Subroutine Title: 


Description: 


Program Responsibility: 


Date Issued: 


Language: 


Reference: 
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ABSTRACT 


TAB6B - TABLE 6B, Generalized Products, 


Volume Correction to 60 °F. 


This subroutine is designed to calculate the 
volume correction factor required to convert 
a volume at an observed temperature to the 
corresponding volume at 60 °F assuming the 


substance can be characterized as a product. 
American Petroleum Institute 

Measurement Coordination 

2101 L Street, N.W. 

Washington, D.C. 20037 

August 1980 


FORTRAN, ANSI/ASA Standard 


AP! Standard 2540, TABLE 6, 11.1.6 


THIS SUBROUTINE WAS DEVELOPED USING THE MATHEMATICAL ALGORITHMS 
AND SPECIFICATIONS DESCRIBED IN THE DOCUMENT PROCEDURE 11.1.6.6. 
ANY MODIFICATIONS TO THIS SUBROUTINE MUST RIGIDLY ADHERE 
TO THE SAME ALGORITHMS AND SPECIFICATIONS. 


11.1.6.5.1 Introduction 


TAB6B is a computer subroutine designed to calculate the volume correc 


tion factor (VCF) necessary to convert a volume of a generalized product at a 


specified temperature in degrees Fahrenheit (°F) and of a specified 60 °F 


gravity in degrees API (°API) to the equivalent volume at 60 °F. The subrou- 
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tine accepts as input the API gravity at 60 °F rounded to the nearest 0.1 °API 
and the observed temperature rounded to the nearest 0.1 °F. If either input 
value has not been properly rounded, the subroutine will round the values and 
return the corrected values. The subroutine returns one value of VCF with 5 
significant figures of accuracy for computation purposes and another VCF value 
rounded to four decimal places for printing purposes. The subroutine also 
outputs a status code for user convenience. The code is set to -1 if an error 
condition occurs and to +1 if the input values are outside the limits of the 
correlation. A status code of zero is returned if the input values are within 
the limits of the correlation. The limits of the correlation including the 
extrapolated region are depicted in Figure X-4. The calling program must check 
the flag and provide the user with appropriate warning messages or program 


termination. 


11.1.6.5.2 Subroutine Specifications 


The range of application: °AP I Temperature, °F 
0.0 to 40.0 0.0 to 300.0 
40.1 to 50.0 0.0 to 250.0 
50.1 to 85.0 0.0 to 200.0 

Referenced modules: RHOB, ALPHAB, VCF6B, SDIVB, MPYB 

FORTRAN functions: FLOAT 


Average execution time: 1845 VCF entries/CPU second 
IBM 370/168 


The subroutines are written in ANSI/ASA FORTRAN using integer arithmetic. The 


size and storage requirements are: 


1. Compilable source statements 133 
2. Decimal storage bytes 3212 
3. Words 803 
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11.1.6.5.3 Calling Sequence 


CALL TABOB (API60, DEGF, VCFC, VCFP, !FLAG) 


INPUT DESCRIPTION 


API60 = API gravity at 60 °F 
(API60 returned wil! be rounded to nearest 0.1 °API) 


DEGF - Observed temperature, °F 


(DEGF returned wil! be rounded to nearest 0.1 °F) 


OUTPUT DESCRIPTION 


VCFC - Output VCF rounded to 5 significant figures for computational 
purposes 
jee. VCFC = 1.XXXX 
or VCFC = 0.XXXXX 


VCFP - Output VCF rounded to 4 decimal places for printing purposes 
i.e. VCFP = 1.XXXX 
or VCFP = O0.XXXX 


IFLAG - Status Code 
QO: tndicates input variables are within the range of appli- 
cation. 


1: Input data outside limits of correlation as given in 
11.1.6. 


~l: Indicates input API60 or input DEGF outside range of 
application as given in 11.1.6; VCFC and VCFP set to 
~].0000. 
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11.1.6.5.4 Method of Calculation 


The subroutine evaluates the equation 


VCF = EXPI- Aq AT(1 + 0.8 6 At)] 


where At = DEGF - 60.0 


Ko K4 
*60: => 2 Be 
PEO 


_ 141.5 * 999.012 
ae “  API60 + 131.5 


999.012 = density of water at 60 °F, Kg/m> 


A full explanation of the equations and the parameters Kg and Kj may be found 
in API Standard 2540, TABLE 6, 11.1.6. 


11.1.6.5.5 Examples 


These examples are tutorial in nature and are not intended to be sufficient 
for subroutine checkout. The examples given in procedure 11.1.6.6 are to be 


used for the computer checkout. 


Example 1 
API60 = 37.02 
DEGF 90.47 
CALL TAB6B (API60, DEGF, VCFC, VCFP, I FLAG) 
After the call: API60 = 37.0 


DEGF = 90.5 
VCFC = .98562 
VCFP = .9856 
IFLAG = 0 
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API60 = 27.5 
DEGF = 270.0 


CALL TAB6B (API60, DEGF, 


After the call: AP160 
DEGF 
VCFC 
VCFP 
I FLAG 
API60 = 37.0 


DEGF = 500.0 


CALL TAB6B (API60, DEGF 
After the call: API60 


DEGF 
VCFC 
VCFP 


| FLAG 
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VCFC, VCFP, IFLAG) 
27.5 

270.0 

-90658 

«9066 

1 


VCFC, VCFP, IFLAG) 
37.0 

500.0 

-1.0000 

-1.0000 

-1 


X-113 


API MPMS*11-1 VOL*X 80 MM 0732290 0525979 &T5 
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11.1.6.5.6 FLOWCHART 


INPUT: API GRAVITY 
OBSERVED TEMPERATURE 


ROUND !NPUT DATA 
TO SPECIFICATION 


CHECK 
TO SEE IF 
DATA WITHIN 
BOUNDS OF 
TABLE 


SET VCF = -1.0000 


ald ERROR FLAG TERR = -1 


RETURN 


YES 


CHOOSE APPROPRIATE 
VALUES OF Ky AND K, 
CALCULATE RHO 


CALCULATE ALPHA 
CALCULATE VCF 


YES 


SET ERROR 
FLAG = 1 


1S DATA IN 
EXTRAPOLATED 
REGION? 


SET ERROR 
FLAG = 0 


RETURN 
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11.1.6.5.7 Subroutine Listing 
TAB6B This subroutine serves as the input/output routine to 
the subsequent modules necessary in the calculation of 
volume correction factor from API gravity at 60 °F and 
observed temperature. 
Referenced Modules 
ALPHAB This module is designed to calculate alpha for use in 
determination of volume correction factor. 
MPYB This module performs integer multiplication with a maxi- 
mum of 17 digits. 
RHOB This module is designed to calculate a density value for 
a given vaiue of API gravity by the formula 
141.5 * 999.012 
P = (API60 + 131.5) 
SD IVB This module is designed to produce additional accuracy 
from an integer divide where the numerator is 10000 
greater than the denominator. 
VCF6B This module is designed to calculate volume correction 
factor. 
SUBROUTINE TAB6B(API60 , DEGF , VCFC , VCFP, IFLAG) 6B000010 
Cc 6B000020 
Cc (C)COPYRIGHT 1980 68000030 
Cc AMERICAN PETROLEUM INSTITUTE 6B000040 
Cc ALL RIGHTS RESERVED 6B000050 
Cc 6B000060 
Cc THIS SUBROUTINE IS A VOLUNTARY STANDARD AND WAS DEVELOPED 6B000070 
Cc UNDER THE AUSPICES OF THE JOINT API-ASTM COMMITTEE ON STATIC 6B000080 
Cc PETROLEUM MEASUREMENT IN PART FROM DATA GENERATED 6B000090 
Cc BY A PROJECT FUNDED BY THE AMERICAN PETROLEUM 6B000100 
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INSTITUTE AT THE U.S. NATIONAL BUREAU OF STANDARDS, 
GAITHERSBURG, MARYLAND. 


INQUIRIES CONCERNING ITS APPLICATION SHOULD 
BE ADDRESSED TO: 
AMERICAN PETROLEUM INSTITUTE 
MEASUREMENT COORDINATION 
2101 L STREET, N.W. 
WASHINGTON, DC 20037 


ee He he He oe ie ee ee oie eK eee Oe Hee hee ae ke ee ae oe ae oe Seo eee oe ale ee eae ake oe te eae oe ee oe eo ee ok Ok 


x 
* THIS SUBROUTINE OR THE MATHEMATICAL RELATIONSHIPS = 
* REPRESENTED THEREBY MAY BE USED BY ANYONE WISHING * 
- TO DO SO, BUT THE AMERICAN PETROLEUM INSTITUTE, 
7 THE AMERICAN SOCIETY FOR TESTING AND MATERIALS, * 
* AND THE INSTITUTE OF PETROLEUM AND THEIR * 
* RESPECTIVE MEMBERS AND THE U.S. NATIONAL BUREAU ba 
* OF STANDARDS, SHALL NOT BE HELD RESPONSIBLE OR a 
* LIABLE IN ANY WAY FROM LOSS OR DAMAGE, INCLUDING, * 
* BUT NOT LIMITED TO, CONSEQUENTIAL DAMAGE , * 
= RESULTING FROM SUCH USAGE OR FOR VIOLATION OF = 
- ANY FEDERAL, STATE, OR MUNICIPAL LAWS, REGULATIONS * 
= OR PRACTICES OF THE UNITED STATES OR OF ANY * 
* FOREIGN COUNTRY . * 
% Eo 
* Py 
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THE THERMAL EXPANSION PROPERTIES (VOLUME CORRECTION FACTORS, 
VCFS) FOR PRODUCTS (EXCLUDING LUBE STOCKS) AND CRUDES 

ARE CORRELATED IN TWO SEPARATE, GENERALIZED TABLES 

AS A FUNCTION OF TEMPERATURE AND API GRAVITY. THE 

PREDICTED PRECISION AT 95 PERCENT CONFIDENCE IS: 


VGF PRECISION AT 95 PERCENT CONFIDENCE, PERCENT 


TEMPERATURE 100F 150F 200F 250F 
CRUDES, PRODUCTS 0.05 0.15 0.25 0.35 


IF THIS PRECISION IS UNACCEPTABLE, IT IS RECOMMENDED 
THAT THE ACTUAL THERMAL EXPANSION PROPERTIES OF THE 
SUBSTANCE BE MEASURED AND THE VGF BE DETERMINED 
USING TABLE 6C WITH EITHER K OR ALPHA VALUES DERIVED 
FROM THE MEASURED DATA. THE INSTRUCTIONS FOR THIS 
PROCEDURE ARE GIVEN IN TABLE 6C. 


THIS SUBROUTINE IS DESIGNED TO ACCEPT AS 

INPUT API GRAVITY VALUE AT 60 F(API60) AND 

OBSERVED TEMPERATURE IN DEGREES FAHRENHEIT(DEGF) AND 
PRODUCE THE VOLUME CORRECTION FACTOR(VCF) FOR 

API TABLE 6B, GENERALIZED PRODUCTS 

VOLUME CORRECTION FACTOR TO 60 F. 


THIS SUBROUTINE CALLS THE FOLLOWING MODULES 
RHOB 
ALPHAB (CALLS SDIVB) 
SDIVB 


DOAQNDDDAGQAGAAANDNAIGDAAGANAANDAN ANG ANAANANAANANDAANANANANANNANIANANANAANDAANANANINDAAMANMNNNOOYN 
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6B000110 
6B0001 20 
6B0001 30 
6B000140 
6B000150 
6B000160 
6B000170 
6B000180 
6B000190 
6B000200 
6B000210 
6B000220 
6B000230 
6B000240 
6B000250 
6B000260 
6B000270 
6B000280 
6B000290 
6B000300 
6B000310 
6B000320 
6B000330 
6B000340 
6B000350 
6B000360 
6B000370 
6B000380 
6B000390 
6B000400 
6B000410 
6B000420 
6B000430 
6B000440 
6B000450 
6B000460 
6B000470 
6B000480 
6B000490 
6B000500 
6B000510 
6B000520 
6B000530 
6B000540 
6B000550 
6B000560 
6B000570 
6B000580 
6B000590 
6B000600 
6B000610 
6B000620 
6B000630 
6B000640 
6B000650 
6B000660 
6B000670 
6B000680 
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Cc VCF6B (CALLS MPYB) 6B0006390 
c 6B000700 
CG API60 SHOULD BE PASSED IN THE NEAREST TENTH 6B000710 
Cc OF DEGREE API. THE SUBROUTINE WILL HOWEVER ROUND 6B000720 
Cc THE VALUE AND RETURN THE CORRECTED VALUE. 66000730 
Cc 66000740 
Cc DEG60 SHOULD BE PASSED IN TRE NEAREST TENTH 6B000750 
Cc OF DEGREE FAHRENHEIT. THE SUBROUTINE WILL HOWEVER 6B000760 
Cc ROUND THE VALUE AND RETURN THE CORRECTED VALUE. 68000770 
Cc 6B000780 
Cc VCFC IS THE RETURNED VOLUME CORRECTION FACTOR 6B000790 
CG CORRECT TO FIVE(5) SIGNIFICANT FIGURES. 6B000800 
Cc 6B000810 
Cc VCFP IS THE RETURNED VOLUME CORRECTION FACTOR 6B000820 
Cc CORRECT TO FOUR(4) DECIMAL DIGITS. 6B000830 
Cc 6B000840 
Cc IFLAG IS THE ROUNDED STATUS CODE WHICH SHOULD 6B000850 
Cc BE CHECKED BY THE USER IN THE CALLING PROGRAM 6B000860 
Cc =0 NO ERROR 6B000870 
Cc =1 INPUT DATA WITHIN EXTRAPOLATION RANGES AS 6B000880 
Cc GIVEN IN API 2540, TABLE 6,11.1.6 6B000890 
Cc =-1 INPUT DATA OUTSIDE SPECIFIED RANGE OF 6B000900 
Cc APPLICATION AS GIVEN IN API 2540, 6B000910 
Cc TABLE 6,11.1.6 6B000920 
Cc 6B000930 
DATA NBP1 ,NBP2 ,NBP3 ,NBP4/370, 480,520, 850/ 6B000940 
DATA IBP1,IBP2/400,500/ 6B000950 
DATA ITMP1,ITMP2 , ITMP3/3000, 2500 , 2000/ 6B000960 
DATA IBAS/600/ 6B000970 
DATA IEP1,IEP2,IEP3/2500 ,2000,1500/ 6B000980 
Cc 6B000990 
Cc COEFFICIENTS FOR DIESELS, HEATING OILS AND FUEL OILS 6B001000 
CG 6B001010 
DATA KOF ,K1F/1038720,2701/ 6B001020 
Cc 6B001030 
Cc COEFFICIENTS FOR JET FUELS, KEROSENES, AND SOLVENTS 6B001040 
c 6B001050 
DATA KOJ,K1J/3303010,0/ 6B001060 
C 6B001070 
Cc COEFFICIENTS FOR TRANSITION BETWEEN JETS AND GASOLINES 68001080 
Cc 6B001090 
DATA KOT ,K1T/14890670, -186840/ 6B001100 
Cc 6B001110 
Cc COEFFICIENTS FOR GASOLINES AND NAPHTHENES 6B001120 
Cc 6B001130 
DATA K0G,K1G/1924571 , 2438/ 68001140 
Cc 6B001150 
VGFG=-1.0000 6B001160 
VCFP=-1.0000 6B001170 
CG 6B001180 
c ROUND INPUT PARAMETERS 6B001190 
Cc 6B001200 
IAPI=AP1I60*10.0+0.5 6B001210 
API60=FLOAT(CIAPI)/10.0 6B001220 
ITEMP=DEGF*10.0+0.5 6B001230 
DEGF=FLOAT(ITEMP)/10.0 6B001240 
IDT=ITEMP- IBAS 6B001250 
IFLAG=- 1 68001260 
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Cc 6B001270 
Cc CHECK API RANGES 6B001 280 
Cc 6B001290 
IFC IAPI)10,20,20 6B001300 

10 CONTINUE 6B001310 
RETURN 6B001320 

Cc 6B001330 
Cc DEFINE CURVE COEFFICIENTS 6B001340 
c 6B001350 
20 IF(IAPI-NBP1)30,30,40 i 6B001360 

30 KO=KOF 6B001370 
K1=K1F 6B001380 

GO TO 80 6B001390 

40 IF(IAPI-NBP2)50,60,60 6B001400 

50 KO=KOJ 6B001410 
K1=K1 J 6B001420 

GO TO 80 6B001430 

60 IFCIAPI-NBP3)70,70,75 6B001440 

70 KO=KOT 6B001450 
K1=K1T 6B001460 

GO TO 80 6B001470 

75 IFC IAPI-NBP4)78,78,10 6B001480 

78 KO=KOG 6B001490 
K1=K1G 6B001500 

80 CONTINUE 6B001510 

Cc 6B001520 
Cc CHECK VALID TEMPERATURE RANGES 6B001530 
CG 6B001540 
IFC ITEMP)90,100,100 6B001550 

90 CONTINUE 6B001560 
RETURN 6B001570 

100 IFCIAPI-IBP1)110,110,120 6B001580 
110 IFC ITEMP-ITMP1)150,150,90 6B001590 
120 IFC IAPI-IBP2)130,130,140 6B001600 
130 IFC ITEMP-ITMP2)150,150,90 6B001610 
140 IFCITEMP-ITMP3)150,150,90 6B001620 
150 CONTINUE 6B001630 

Cc 6B001640 
Cc CALCULATE RHO 6B001650 
Cc 6B001660 
CALL RHOB(IAPI, IRHO) 6B001670 

Cc 6B001680 
Cc CALCULATE ALPHA 6B001690 
Cc 6B001700 
IF(KO.NE.KOT)GO TO 155 6B001710 

Cc 6B001720 
Cc CALCULATE ALPHA IN TRANSITION ZONE 6B001730 
Cc 6B001740 
CALL SDIVB(KO,IRHO, TIRES) 6B001750 
IRES=IRES*10 6B001760 

CALL SDIVB(IRES,IRHO, IALF1) 6B001770 
IALF1=(IALF1+5)/10 6B001780 
IALF=( IALF1+K1+5)/10 6B001790 

GO TO 158 6B001800 

155 CALL ALPHAB(IRHO,KO,K1,IALF) 6B001810 

Cc 6B001820 
Cc CALCULATE VCF 6B001830 
c 6B001840 
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158 CONTINUE 6B001850 
CALL VCF6B(IALF,IDT,IVCF) 6B001860 
IFLAG=0 6B001 870 

Cc 6B001880 
Cc CHECK TO DETERMINE IF IN EXTRAPOLATED REGION 6B001890 
Cc 6B001900 
IF(IAPI-IBP1)160,160,170 6B001910 

160 IF(ITEMP-IEP1 )200 ,200,165 6B001920 
165 IFLAG=1 6B001930 
GO TO 200 6B001940 

170 IF(IAPI-IBP2)180,180,190 6B001950 
180 IF(ITEMP-IEP2)200, 200,165 6B001960 
190 IF(ITEMP-IEP3)200, 200,165 6B001970 
200 CONTINUE . 6B001980 

Cc 6B001990 
Cc CALCULATE PRINT AND CALCULATION VALUES OF VCF 6B002000 
Cc PRINT VALUE(PVCF) ROUNDED TO 4 DECIMAL DIGITS 6B002010 
Cc CALCULATION VALUE(CVCF) ROUNDED TO 5 SIGNIFICANT DIGITS 6B002020 
Cc 68002030 
JVCF=(IVCF/1000+5)7/10 6B002040 
PVCF=JVCF 6B002050 
PVCF=PVCF /10000. 6B002060 

IF (IVCF -100000000)210, 220, 220 6B002070 

210 CONTINUE 6B002080 
Cc 6B002090 
Cc VCF LESS THAN ONE, FIVE DECIMALS RETURNED 6B002100 
Cc 6B002110 
JVCF=(IVCF/100+5)/10 6B002120 
CVCF=JVCF 6B002130 
CVCF=CVCF/100000. 6B002140 

GO TO 250 6B002150 

220 CONTINUE 6B002160 
CVGF=PVCF 6B002170 

250 CONTINUE 6B002180 
VCFP=PVCF 6B002190 
VCFC=CVCF 6B002200 
RETURN 6B002210 

END 6B002220 
SUBROUTINE RHOB(IAPI , IRHO) 6B002230 

Cc 6B002240 
Cc THIS MODULE IS DESIGNED TO CALCULATE A DENSITY 6B002250 
Cc VALUE FOR A GIVEN VALUE OF API BY THE FORMULA 6B002260 
Cc RHO=141.5*999.012/ (API+131.5) 6B002270 
Cc IT IS ASSUMED THAT THE API VALUE HAS BEEN ROUNDED 6B002280 
Cc TO THE NEAREST TENTH DEGREE API AND THE VALUE MULTIPLIED 6B002290 
Cc BY 10. THE OUTPUT VALUE OF RHO WILL BE RETURNED 6B002300 
Cc AS AN INTEGER AND ROUNDED TO THE NEAREST HUNDREDTH 6B002310 
Cc KILOGRAM/CUBIC METRE. 6B002320 
Cc 6B002330 
Cc THE VALUE 1413601980 REPRESENTS 141.5*999.012*10000 6B002340 
Cc CORRECT TO 10 DIGITS 6B002350 
IDENOM=IAPI+1315 6B002360 
IRHO=(1413601980/ IDENOM+S )/10 6B002370 
RETURN 68002380 

END 6B002390 
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SUBROUTINE SDIVB(INUM, IDENOM, TIRES) 


THIS MODULE IS DESIGNED TO PRODUCE ADDITIONAL 

ACCURACY FROM AN INTEGER DIVIDE WHERE THE NUMERATOR 

IS 10000 GREATER THAN THE DENOMINATOR. THE SUBROUTINE 
ASSUMES PROPER SCALING OF BOTH THE INPUT NUMERATOR 

AND DENOMINATOR AND WILL RETURN THE RESULTS MULTIPLIED 
BY 10000. 


aqgaqgagagagagg 


IRES1=INUM/ IDENOM 

IRES2=( INUM- TRES1 * IDENOM) *10000/ IDENOM 
ITRES=TRES1 *10000+IRES2 

RETURN 

END 


SUBROUTINE ALPHAB( IRHO,KO,K1, IALF) 


THIS MODULE IS DESIGNED TO CALCULATE ALPHA FOR . 
USE IN DETERMINATION OF VOLUME CORRECTION 
FACTOR. 


INPUT VARIABLES 
IRHO=DENSITY*100 (KILOGRAMS/CUBIC METRE) 
KO ,K1= COEFFICIENTS OF DESIRED CURVE * 10000 


ALGORITHM- 
ALPHA=KO / RHO* * 2+K1 /RHO 


CALCULATE K1/RHO 


gQaqgagdgNdNIdgIAIgIgIOAAA000 


INUM=K1 *10000 
CALL SDIVB( INUM, IRHO, IALF1) 


CALCULATE KO/RHO**2 


aqgaqag 


INUM=K0* 100 

CALL SDIVB(INUM, IRHO, IALFS) 
CALL SDIVB(IALFS, IRHO, IALF2) 
TALF=(IALF1+IALF2+500 )/1000 
RETURN 

END 


SUBROUTINE VCF6B(TIALF ,IDT,IVCF) 


THIS MODULE IS DESIGNED TO CALCULATE VOLUME 
CORRECTION FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE 
AS INTEGERS, THE SUBROUTINE RETURNS WITH A 8 

OR 9 DIGIT VALUE DEPENDENT UPON WHETHER IDT 

IS POSITIVE OR NEGATIVE. 


ALGORITHM- 
VCF=EXP( -ALPHA*DT(1.0+0.8*ALPHA*DT ) ) 


egggggAagagdgaao 


CALCULATE ALPHA*DT 
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6B002400 
6B002410 
68002420 
6B002430 
6B002440 
6B002450 
6B002460 
6B002470 
6B002480 
6B002490 
6B002500 
6B002510 
6B002520 
6B002530 


6B002540 
6B002550 
6B002560 
6B002570 
6B002580 
68002590 
6B002600 
6B002610 
6B002620 
6B002630 
6B002640 
6B002650 
6B002660 
6B002670 
6B002680 
6B002690 
6B002700 
6B002710 
6B002720 
6B002730 
6B002740 
6B002750 
6B002760 
6B002770 
6B002780 
6B002790 


6B002800 
6B002810 
6B002820 
6B002830 
6B002840 
6B002850 
6B002860 
6B002870 
6B002880 
68002890 
6B002900 
6B002910 
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Cc 6B002920 
ITERM1=IALF*IDT 6B002930 
Cc 6B002940 
Cc CALCULATE 0.8 *ALPHA *DT 6B002950 
Cc 6B002960 
ITERM2=ITERM1 /5*4 6B002970 
Cc 6B002980 
Cc CALCULATE EXPONENT -ALPHA*DT(1.0+0.8*ALPHA*DT ) 6B002990 
C 6B003000 
CALL MPYB(ITERM1 , ITERM2 , ITERMS ) 6B003010 
IX=- (ITERM1+ITERMS ) 6B003020 
Cc 6B003030 
G CALCULATE EXPONENTIAL(FIRST 7 TERMS OF POWER SERIES) 6B003040 
Cc 6B003050 
ISUM1=100000000+1X 6B003060 
CALL MPYB(IX,IX, ISUM2) 6B003070 
ISUM2=ISUM2 /2 6B003080 
CALL MPYB( IX, ISUM2 , ISUMS3 )} 6B003090 
ISUM3=ISUM3/3 6B003100 
CALL MPYB( IX, ISUM3 , ISUM4 ) 6B003110 
ISUM4=ISUM4/4 6B003120 
CALL MPYB( IX, ISUM4 , TSUMS5 ) 6B003130 
ISUM5=ISUM5/5 6B003140 
CALL MPYB( IX, ISUM5, ISUM6 ) 6B003150 
ISUM6=ISUM6/6 6B003160 
IVCF=ISUM1+ISUM2+ISUM3+ISUM4+ISUM5+ISUM6 6B003170 
RETURN 6B003180 
END 6B003190 
SUBROUTINE MPYB(IX,IY,1IZ) 6B003200 
Cc 6B003210 
c THIS MODULE PERFORMS INTEGER MULTIPLICATION. THE TOTAL 6B003220 
Cc NUMBER OF DIGITS IN IX AND IY MUST NOT EXCEED 17. OTHER 6B003230 
C WISE, OVERFLOW WILL OCCUR. 6B003240 
Cc 6B003250 
Iu1 = IX / 10000 6B003260 
Ki = 10000 * Iu1 6B003270 
IV1 = IX - Ki 6B003280 
IuU2 = IY / 10000 6B003290 
K2 = 10000 * IU2 6B003300 
Iv2 = IY - K2 6B003310 
K3 = IU1 * IV2 + IU2 * IV1 + IVt * IV2 / 10000 6B003320 
IZ = (K3 + 5000) / 10000 + [U1 * IU2 6B003330 
RETURN 6B003340 
END 6B003350 
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11.1.6.6 IMPLEMENTATION PROCEDURE FOR SUBROUTINE TAB6B 


In today's world there is a rapidly developing trend to use computers in 
custody transfer measurements, accounting work, process control systems, and a 
variety of other uses where tables must be incorporated into computer codes. 
Yet many of the printed tables are almost impossible to code due to the fact 
that someone has slightly modified selected values to differ from those 
obtained using the mathematical expression that supposedly generated the 
tables. To overcome this problem it is often required to add extensive excep- 
tion tables to the codes. This makes the codes large and cumbersome to modify, 
and restricts their use to larger computer systems. Also with the development 
of better measuring devices it is often possible to gain more digits of preci- 
sion in the table parameters, necessitating finer grid of the tabular values, 
resulting in larger volumes of printed tables to be handled. 

In addition, as the on-line use of computers for metering purposes 
increases, the direct use of printed tables will decrease; therefore, the new 
Standard is an explicit implementation procedure rather than a set of equa- 
tions or a set of tables. It must be remembered that the standardization of 
the implementation procedure implies standardization of the set of mathemati- 


cal expressions used within the code. Absolute adherence to the procedure 


will help fo insure that all computers and computer codes of the future, meet- 
ing the specifications and restrictions, will be able to produce the same 
results. It is believed that this procedure will allow for the maximum 


machine and code independence. The procedure was implemented in computer sub- 
routines issued by AP! in 1980 using ANSI/ASA FORTRAN. The subroutines maxi- 
mized precision by the use of 32-bit integer arithmetic. 

The procedure as described in the following text can, by careful and 
deliberate application of numerical analysis, be used with the majority of 
languages and word sizes in present or anticipated use. To use the standard 
procedure means to maintain absolute and unwavering adherence to the number of 
digits specified at each step and to the calculation procedure as outlined. 

In the procedure, the nomenclature used is that of ASTM E380-76, unless 
an explicit procedure is given below, in which case the procedure given below 
overrides that given by ASTM E380-76. 

In the procedure the nomenclature (XXX.XX) means five (5) mathematical ly 


significant digits. 
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A 


The 
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term rounding as used In the procedure means: Consider only the 


first digit to the right of the desired position and 


Ge 


De 


STEP 1: 


STEP 2: 


STEP 3: 


STEP 4: 


Copyright por American 


If that digit Is greater than 4, increment the desired position by 
one and drop the remaining digits to the right of the desired posi- 
tion. 

[f that digit is less than 5, simply drop the remaining digits to 


the right of the desired position. 
constants are used to exactly the number of digits printed. 


Calculation Procedure 


Round input variables of AP! gravity and observed temperature 
a. Round API gravity to the nearest 

0.1 °AP! and carry as 4 digit result 

i-e. AP! gravity (API60) = XXX.X 
b. Round observed temperature to the nearest 

0.1 °F and carry as 4 digit result 


iGo observed temperature (DEGF) = XXxX.X 
Conversion to density in Kg/m 


define p = 141.5 * 999.012 
(AP160 + 131.5) 


Note: 141.5 * 999.012 = 141360.1980 and must be carried to 10 
significant digits. 
Round p to nearest 0.01 
ise. p = XXXXoXX 


Choose the appropriate values of Kg and Ky as described in AP! Stan- 
dard 2540, TABLE 6, 11.1.6 

Kg is a 7 digit constant 

ieee Kg = XXXoXXXX 

Ky is a 4 digit constant 

jee. Ky = eXXXX 


Calculation of alpha (coefficient of thermal expansion) 
I. If input API gravity < 48°API or 
input API gravity > 52°API 


X-123 
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X-124 CHaPTER 11—PuysicaL Properties DATA 
K K 
define a = pel: 
02 ie) 
K 
a. Evaluate 0 
p 
K 
a(l) Compute 2 = .XXXXXXXX 


K/p 
a(2) Compute _O__ = .000XXXXXXX 


p 
Ky 
b. Evaluate — 
é) 
K 
b(1) | = .QOOXXXXXXX 
fe) 


c. Sum results of a(2) and b(1) and round to nearest 0.0000001 
1.@e a = «QOOXXXX 


It. If input API gravity > 48 °API and 
input API gravity < 52 °API 


define a= A+ B/p2 where 


A and B are chosen to be the coefficients of the transition line 
as described in API Standard 2540, TABLE 6, 11.1.6. 

A = «OOXXXXXX 

B = XXXXeXXXX 


B 
ae Evaluate 2 
ra) 


B 
a(1l) compute o = X eXXXXXX 


B/ 
a(2) compute — = .QOXXXXXX rounded to nearest .00000001 


b. Sum results of a(2) and A and round to nearest .0000001 
ie@. G&= eOOOXXXX 
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STEP 5: Calculate At 
define At = DEGF - Tease 
Note: Tpase carried to 3 digits XX.X (60.0) 
Carry At = XXX.X 


STEP 6: Calculation of VCF 
define VCF 


EXP[-aAt(1.0 + 0.8 adt)] 
EXP[-aAt - 0.8 a2 At2Z] 


a. Calculation of exponent 

aCl) aAT = sXXXXXXXX 

a(2) «8B aAT = .XXXXXXXX 

a(3) «8 a2 At2 = .OXXXXXXX 

a(4) -aAt - 0.8 a4 At? = O.XXXXXXXX with any trailing 

digits dropped 
b. Caiculation of exponential 
VCF = EXP[- aAt - 0.8 a2 At2) = X.XXXXXX 
using at least the first 7 terms of the power series expansion 


of e% 


Computational 
value of VCF 


1.XXXX rounded to nearest 0.0001 if VCF > 1 
Q.XXXXX rounded to nearest 0.00001 if VCF < 1 


Table value 
of VCF = X.XXXX rounded VCF to nearest 0.0001 


The 1980 integer FORTRAN code issued by API contained both an integer 


division and an integer multiplication algorithm. A description of each is 


contained in the following: 


INTEGER MULTIPLICATION PROCEDURE 
(FOR 32 BIT ARITHMETIC) 


DATA DEFINITION 
9 


X, Y are integer numbers that are equal to or less than 2 * 10 


(slightly less than 231). A larger value may cause overflow. In addition, 


the total number of digits in X and Y must not exceed 17, otherwise overflow 


will occur. 
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Z is the product XY scaled by 1078, i.e. Z = xY/108, 

Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically, at least 15 digits are 
needed to obtain 6 digit precision, 16 for 7 and 17 for 8. 

The largest values of X and Y that may be used are 2 000 000 000 and 
99 999 999. 


CALCULATION 


X/10000 = Uy 
10000 U; = Ky 
X - Ky = Vy 
Y/10000 = U? 
10000 Us = Ko 
Y-K2 = V9 


(UzV¥2) + (U2V,) + (VqV2/10000) = Kz 

(Kz + 5000)/10000 + (U{U2) = Z 

Note: Z has been scaled by 10-8 and may have to be rescaled before use. 
TOTAL DIGITS IN X_AND Y 12 13 14 15 «160617 


DIGITS IN PRODUCT, Z 3-4 4-5 5-6 6-7 7-8 8-9 


INTEGER DIVISION PROCEDURE 
(FOR 32 BIT ARITHMETIC) 


DATA DEFINITION 


X, Y are integer numbers such that X is equal to or less than 252 - | 


and Y is of order of magnitude 104 less than X. 


R is the quotient of 2 scaled by 104, i.e. R= -* 104. 


Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically the more digits that are 


carried in both X and Y, the more accurate digits on output. 
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CALCULATION 


xX/Y = Uy 
U1yY = Ky 
Ko Ky = V4 
V4/Y = U2 
U, * 10000 + Up =R 


Note: 


The following examples are designed to aid in checkout procedures for 
both the existing API subroutine and any subroutines which are developed using 


the implementation procedure outlined above. 


SECTION 1—VOLUME CORRECTION FACTORS 


R has been scaled by 104 and may have to be rescaled before use. 


Examples For Checkout 


numbered to correspond to the lines within the calculation procedure. 


EXAMPLE 1: 


VCF required to correct the volume to 60 °F, correct to 4 decimal 


digits. 
STEP 1: 


STEP 2: 


STEP 3: 


STEP 4: 
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ae 


be 


rounded AP|60 
rounded DEGF = 105.0 


Assume a fuel oi! with an input API gravity corrected to 60 °F of 


24.99 °AP! and an observed temperature of 105.03 °F. 


25.0 


9 rounded to nearest 0.01 Kg/m 


Ko 
Ky 


[eae 


I.c. 


o = 903.26 
103.8720 (as of May 1, 1980) 
0.2701 (as of May 1, 1980) 
So 
pe 
a(1) 2 = 0.11499678 
K./ 
a(2) note = 0.0001273130 
fe) 
K 
Evaluate —— 
Ky 
b(1) —— = 0.0002990279 
a = 0.0004263 


The lines of the examples are 


Calculate the 


X-127 


API MPMSx*11.1 VOL*X 60 MM 0732290 0525993 T75 


X-128 CHAPTER 11—Puysicat Properties DaTA 


STEP 5: At = 45.0 


STEP 6: Calculation of VCF 

ae Calculate exponent 
a(1) 0.01918350 
a(2) 0.01534680 
a(3) 0.00029440 
a(4) -0.01947790 

be Calculation of exponential 
VCF = 0.980710 


VCF correct to 4 decimal digits = 0.9807 


EXAMPLE 2: Assume a jet fuel with an input API gravity corrected to 60 °F of 
41.1 °AP! and an observed temperature of 39.9 °F. Calculate the 
VCF required to correct the volume to 60 °F, correct to 4 decimal 


digits. 


STEP 1: a) rounded AP!60 
b) rounded DEGF 


41.1 
39.9 


STEP 2: p rounded to nearest 0.01 Kg/m> 


p = 819.00 
STEP 3: Kg = 330.3010 (as of May 1, 1980) 
Ky = 0.0 (as of May 1, 1980) 


K 
STEP 4: |eae Evaluate 2 
2 


K 
a(1) 2 = 0.40329792 


K 
a(2) —Y— = 0.0004924272 
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STEP 5; 


STEP 6: 
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K 
{.b. Evaluate al 
a) 


1.Ce a = 0.0004924 
At = -20.1 


Calculation of VCF 
ae Calculate exponent 
a(1) -0.00989724 
a(2) -0.00791779 
a(3) 0.00007836 
a(4) 0.00981888 
b. Calculation of exponential 
VCF = 1.009867 


VCF correct to 4 decimal digits = 1.0099 


EXAMPLE 3: 


50.3 °AP! and an observed temperature of 48.1 °F. 


VCF required to correct the volume to 60 °F, correct to 4 decimal 


digits. 


STEP 1: 


STEP: 2% 


STEP 3: 


STEP 4: 
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a) rounded AP !60 
b) rounded DEGF 


50.3 
48.1 


o rounded to nearest 0.01 Kg/m> 
p = 777.56 


Assume a product with an input API gravity corrected to 60 °F of 


Calculate the 


Ko» Ky not applicable; API gravity found in transition 


a 
> 
I 


= -.00186840 
1489 ..0670 


oO 
tl 


(as of May 1, 1980) 
(as of May 1, 1980) 


X-129 
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ae Evaluate 2 
a(1) B= 1.915050 
a(2) st = 0.00246290 
be a = 0.0005945 
STEP 5: At = -11.9 


STEP 6: Calculation of VCF 

ae Calculation of exponent 
a(t) -0.00707455 
a(2) -0.00565964 
a(3) 0.00004003 
a4) 0.00703452 

b. Calculation of exponential 
VCF = 1.007059 


VCF correct to 4 decimal digits = 1.0071 


EXAMPLE 4: Assume a gasoline with an input AP! gravity corrected to 60 °F 
of 57.2 °AP! and an observed temperature of 89.6 °F. Calculate 
the VCF required to correct the volume to 60 °F, correct to 5 


significant figures. 


STEP 1: ae rounded API60 57.2 
b. rounded DEGF = 89.6 


STEP 2: p rounded to nearest 0.01 Kg/m> 


op = 749.13 
STEP 3: Kg = 192.4571 (as of May 1, 1980) 
Ky = 0.2438 (as of May 1, 1980) 
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STEP 4: |.a. Eval 


a(1) 


K 
uate _O 
2 


K 
2 = .25690747 


Ko/e 
a(2) Yiu = 0.0003429411 


}.be Eval 


b(1) 


1.ce OA = 


STEP 5: At = 29.6 


p 


K 
uate mn 
p 


K 
_l = 0.0003254441 
p 


0 .0006684 


STEP 6: Calculation of VCF 


a. Calculate exponent 


a(1) 
a(2) 
a(3) 
a(4) 


0.01978464 
0.01582771 
0 .00031314 
- -02009778 


b. Calculation of exponential 


VCF = 


0.980102 


VCF correct to 5 significant figures = 0.98010 
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11.1.6.7 TASLE 6C—VOLUME CORRECTION 
FACTORS FOR INDIVIDUAL AND 
SPECIAL APPLICATIONS, VOLUME 
CORRECTION TO 60°F AGAINST 
THERMAL EXPANSION COEFFICIENTS 
AT 60°F 


TABLE 6C gives volume correction factors to con- 
vert petroleum liquid volumes to the corresponding 
volume at 60°F. The table presents tabular entries of 
volume correction factors against thermal expansion co- 
efficients and temperature. The values were computed 
from the basic equation used to represent volume cor- 
rection factors. 


VCF = EXP [—a7Ad(1 + 0.8a7A0)] 6) 
a7 = a at the base temperature 
At=t-T 

t = any temperature 
T = base temperature. 


In this form the equation is independent of the group 
or substance. It can be used with any valid method 
of obtaining the thermal expansion coefficient for a 
given fluid as long as a statistically significant num- 
ber of points are obtained. A minimum of ten such 
points is recommended. The appendix to TABLE 6C 
(11.1.6.7.1 in Volume III) presents values of the 
thermal expansion coefficient along with the base den- 
sity for each of the NBS samples. In addition, values of 
the constants Ky and K, are given for each major group. 
These constants relate the thermal expansion coeffi- 
cient to base density by 

+ 
ay = Ho Suet @) 
Pr 

This table and its primary subroutine allow the use of 
measured data for previously unstudied fluids to sup- 
plement data included in the initial data base. High 
precision density data obtained from the laboratory for 
a fluid of interest may be reduced by Equation 1 to 
obtain py and a7. TABLE 6C may then be entered with 
the a7 so determined. 


TABLE 6C, when used with a minimum of ten data 
points, allows one to extract the highest degree of ac- 
curacy from the base data. It is suggested that TABLE 
6C be used when: 


1. TABLES 6A and 6B do not adequately represent 
the thermal expansion properties of the fluids of in- 
terest; and 

2. Precise thermal expansion coefficients may be ob- 
tained directly or indirectly by experiment (As an exam- 
ple, high precision density data may be used to compute 
the coefficients.); and 

3. Buyers and sellers agree that, for their use, a greater 
degree of equity can be obtained. 


The temperature ranges of this table are: 


a * 10° °F 
270 to 510 0 to 300 
510 to 530 0 to 250 
530 to 930 0 to 200 


The volume correction factors given in this table are 
based on data from the U.S. National Bureau of Stan- 
dards and from other published data. The appendix to 
this table presents values of the thermal expansion coef- 
ficients at 60°F for each of the samples included in the 
NBS data set. Portions of the temperature range repre- 
sent areas beyond these data. Thus, mathematical tech- 
niques were employed to extrapolate beyond the tem- 
perature range of the given data to determine the vol- 
ume correction factors for these areas. These factors are 
denoted by an asterisk (*). Extension of this table be- 
yond the ranges shown is not intended. 

Increments used in this table for determining the 
volume correction factors are 0.5°F and 2 units for a. 
Interpolation between either temperature or thermal 
expansion coefficient is not intended since there is no 
practical method of interpolation that will produce the 
accuracy obtainable from the Standard. 


This table must be entered with a known ther- 
mal expansion coefficient at 60°F and with an ob- 
served temperature. 


11.1.6.8 PROGRAM DOCUMENTATION FOR SUBROUTINE TAB6C— 
VOLUME CORRECTION FACTORS FOR INDIVIDUAL AND SPECIAL 
APPLICATIONS, CORRECTION OF VOLUME TO 60°F AGAINST 
COEFFICIENTS OF THERMAL EXPANSION AT 60°F 


ABSTRACT 


Subroutine Title: TAB6C - 


TABLE 6C, VCF for Individual and 


Special Applications, Volume Correction to 


60 °F. 
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Description: This subroutine is designed to calculate the 
volume correction factor required to convert 
a volume at an observed temperature to the 
corresponding volume at 60 °F assuming the 


coefficient of thermai expansion is known. 


Program Responsibility: American Petroleum Institute 
Measurement Coordination 
2101 L Street, N.W. 
Washington, D.C. 20037 


Date Issued: August 1980 
Language: FORTRAN, ANSI/ASA Standard 
Reference: API Standard 2540, TABLE 6, 11.1.6 


THIS SUBROUTINE WAS DEVELOPED USING THE MATHEMATICAL ALGORITHMS 
AND SPECIFICATIONS DESCRIBED IN THE DOCUMENT PROCEDURE 11.1.6.9. 
ANY MODIFICATIONS TO THIS SUBROUTINE MUST RIGIDLY ADHERE 
TO THE SAME ALGORITHMS AND SPECIFICATIONS. 


11.1.6.8.1 Introduction 


TAB6C is a computer subroutine designed to calculate the volume correc- 
tion factor (VCF) necessary to convert the volume of a !iquid hydrocarbon with 
a known coefficient of thermal expansion and at a specified temperature in 
degrees Fahrenheit (°F) to the equivalent volume at 60 °F. The subroutine 
accepts as input the desired coefficient of thermal expansion rounded to the 
nearest 0.0000005 and the observed temperature rounded to the nearest 0.1 °F. 
|f either input value has not been properly rounded, the subroutine wil 
round the values and return the corrected values. The subroutine returns one 
value of VCF with 5 significant figures of accuracy for computational purposes 


and another VCF value rounded to four decima! places for printing purposes. 
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The subroutine also outputs a status code for user convenience. The code is 
set to -1 if an error condition occurs and to +1 if the input values are out- 
side the limits of the correlation. A status code of zero is returned if the 
input values are within the limits of the correlation, The limits of the 
correlation including the extrapolated region are depicted in Figure X-5. The 
calling program must check the flag and provide the user with appropriate 


warning messages or program termination. 


11.1.6.8.2 Subroutine Specifications 


The range of application: Alpha * 106 Temperature, °F 
270.0 to 510.0 0.0 to 300.0 
510.5 to 530.0 0.0 to 250.0 
530.5 to 930.0 0.0 to 200.0 

Referenced modules: VCF6C, MPYC 

FORTRAN functions: FLOAT 


Average execution time: 2290 VCF entries/CPU second 
IBM 370/168 


The subroutines are written in ANSI/ASA FORTRAN using integer arithmetic. The 


size and storage requirements are: 


1. Compilable source statements 86 
2. Decimal storage bytes 1944 
3. Words 486 


11.1.6.8.5 Calling Sequence 


CALL TAB6C (ALF60, DEGF, VCFC, VCFP, IFLAG) 
INPUT DESCRIPTION 


ALF60 ~- Coefficient of thermal expansion 
(ALF60 returned will be rounded to nearest 0.0000005) 
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DEGF - Observed temperature, °F 
(DEGF returned will be rounded to nearest 0.1 °F) 
OUTPUT DESCRIPTION 
VCFC - Output VCF rounded to 5 significant figures for computational 


purposes 
ine. VCFC = 1.XXXX 
or VCFC = 0.XXXXX 


VCFP - Output VCF rounded to 4 decimal places for printing purposes 
i.e. VCFP = 1.XXXX 
or VCFP = 06XaxXx 


IFLAG - Status Code 
0; Indicates input variables are within the range of appli- 

cation. 
1: Input data outside limits of correlation as given in 

11.1.6. 
all Indicates input ALF60 or input DEGF outside range of 
application as given in 11.1.6; VCFC and VCFP set to 

-1.0000. 


11.1.6.8.4 Method of Calculation 


The subroutine evaluates the equation 


VCF = EXPI- gq At(1.0 + 0.8 %Q At)] 


where At = DEGF - 60.0 


%6q = coefficient of thermal expansion 
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A full explanation of the equation may be found in API Standard 2540, TABLE 6, 
11.1.6. 


11.1.6.8.5 Examples 


These examples are tutorial in nature and are not intended to be sufficient for 
subroutine checkout. The examples given in procedure 11.1.6.9 are to be used 


for the computer checkout. 


Example 1 
ALF60 = .0004402 
DEGF = 90.47 
CALL TAB6C (ALF60, DEGF, VCFC, VCFP, IFLAG) 
After the call: ALF60 = .0004400 
DEGF = 90.5 
VCFC = .98653 
VCFP = .9865 
IFLAG = 0 
Example 2 
ALF60 = .0003300 


DEGF = 255.0 
CALL TAB6C (ALF60, DEGF, VCFC, VCFP, iFLAG) 


After the call: ALF60 = .0003300 
DEGF = 255.0 
VCFC = .93458 
VCFP = .9346 
IFLAG = 1 

Example 3 

ALF60 = .0006660 

DEGF = 500.0 

CALL TAB6C (ALF60, DEGF, VCFC, VCFP, IFLAG) 

After the call: ALF60 = .0006660 
DEGF = 500.0 
VCFC = =1.0000 
VCFP) = -1.0000 
IFLAG = ~-1 
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11.1.6,8.6 FLOWCHART 


INPUT: THERMAL EXPANSION 
COEFFICIENT OBSERVED TEMPERATURE 


ROUND INPUT DATA 
TO SPECIFICATION 


SET VCF = -1.0000 
ERROR FLAG JERR = -1 
RETURN 


CHECK 
TO SEE IF 
DATA WITHIN 
BOUNDS OF 
TABLE 


CALCULATE VCF 


CHECK 
TO SEE - 
1S DATA IN 

EXTRAPOLATED 
REGION? 


YES 


SET ERROR 
FLAG = 1 


SET ERROR 
FLAG = 0 


RETURN 


11.1.6.8.7 Subroutine Listing 


TAB6C This subroutine serves as the input/output routine to 
the subsequent modules necessary in the calculation of 
volume correction factor from the coefficient of 


thermal expansion at 60 °F and observed temperature. 
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Referenced Modules 


MPYC This module performs integer multiplication with a maxi- 


mum of 17 digits. 


VCF6C This module is designed to calculate volume correction 


factor. 


SUBROUTINE TAB6C(ALF60,DEGF,VCFC,VCFP,IFLAG) 


(C)COPYRIGHT 1980 
AMERICAN PETROLEUM INSTITUTE 
ALL RIGHTS RESERVED 


THIS SUBROUTINE IS A VOLUNTARY STANDARD AND WAS DEVELOPED 
UNDER THE AUSPICES OF THE JOINT API-ASTM COMMITTEE ON STATIC 
PETROLEUM MEASUREMENT IN PART FROM DATA GENERATED 

BY A PROJECT FUNDED BY THE AMERICAN PETROLEUM 

INSTITUTE AT THE U.S. NATIONAL BUREAU OF STANDARDS, 
GAITHERSBURG, MARYLAND. 


INQUIRIES CONCERNING ITS APPLICATION SHOULD 
BE ADDRESSED TO: 
AMERICAN PETROLEUM INSTITUTE 
MEASUREMENT COORDINATION 
2101 L STREET, N.W. 
WASHINGTON, DC 20037 


We Re oe eae ae oe ae ee eo ee ee ek ake ok ae ke ott ke ae oie ade ie oie eee eo ae oie eae ee eo ate ke ae Be ake Me ae ale ae aie oe ok ae oe ak ake 


bs THIS SUBROUTINE OR THE MATHEMATICAL RELATIONSHIPS * 
bs REPRESENTED THEREBY MAY BE USED BY ANYONE WISHING * 
= TO DO SO, BUT THE AMERICAN PETROLEUM INSTITUTE, = 
* THE AMERICAN SOCIETY FOR TESTING AND MATERIALS, yg 
” AND THE INSTITUTE OF PETROLEUM AND THEIR * 
- RESPECTIVE MEMBERS AND THE U.S. NATIONAL BUREAU = 
7 OF STANDARDS, SHALL NOT BE HELD RESPONSIBLE OR a 
: LIABLE IN ANY WAY FROM LOSS OR DAMAGE, INCLUDING, - 
- BUT NOT LIMITED TO, CONSEQUENTIAL DAMAGE , * 
= RESULTING FROM SUCH USAGE OR FOR VIOLATION OF * 
a‘ ANY FEDERAL, STATE, OR MUNICIPAL LAWS, REGULATIONS . 
" OR PRACTICES OF THE UNITED STATES OR OF ANY : 
* FOREIGN COUNTRY. * 
* * 
* * 


Co. ee ee ee ee ee ee ee ee ee ee ee ee ee 


THIS SUBROUTINE IS DESIGNED TO ACCEPT AS INPUT 

A VALUE OF ALPHA (THERMAL EXPANSION COEFFICIENT) 

AND OBSERVED TEMPERATURE IN DEGREES FAHRENHEIT (DEGF) 

AND PRODUCE THE VOLUME CORRECTION FACTOR FOR 

API TABLE 6C, VCF FOR INDIVIDUAL AND SPECIAL APPLICATIONS 
VOLUME CORRECTION FACTOR TO 60 F. 


QANMQANGAGANNADNANVNDAAGNADNDAINDADNADADGDDADANNNGADAMQNDMDMAAAAAMNMNNMAA0N00 
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6C000010 
6C000020 
6C000030 
6C000040 
6C000050 
6CO00060 
6C000070 
6C000080 
6C000090 
6C000100 
6C000110 
6C000120 
6C000130 
6C000140 
66000150 
6C000160 
6C000170 
6C000180 
6C000190 
6C000200 
6C000210 
60000220 
60000230 
60000240 
60000250 
6C000260 
66000270 
60000280 
6C000290 
6C000300 
6C000310 
6C000320 
6C000330 
6C000340 
6C000350 
6C000360 
6C000370 
6C000380 
6C000390 
6C000400 
60000410 
6B000420 
6C000430 
60000440 
6C000450 
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Cc 60000460 
Cc THIS SUBROUTINE CALLS 6C000470 
CG VCFC (CALLS MPYC) 60000480 
Cc 66000490 
Cc ALF60 SHOULD BE INPUT TO THE NEAREST 0.5 WHERE 6C000500 
Cc ALF60 IS XXX.X * 10**-6. THE SUBROUTINE WILL 6C000510 
Cc ROUND THE VALUE AND RETURN THE CORRECTED VALUE. 6C000520 
Cc 6C000530 
Cc DEGF SHOULD BE PASSED IN THE NEAREST 6CG000540 
Cc TENTH OF DEGREE FAHRENHEIT. THE SUBROUTINE WILL 6C000550 
C ROUND THE VALUE AND RETURN THE CORRECTED 6C000560 
Cc VALUE. 6C000570 
Cc 6C000580 
Cc VCFC IS THE RETURNED VOLUME CORRECTION FACTOR 6C000590 
Cc CORRECT TO FIVE(5) SIGNIFICANT FIGURES. 6C000600 
Cc 6G000610 
C VCFP IS THE RETURNED VOLUME CORRECTION FACTOR 6C000620 
Cc CORRECT TO FOUR(4) DECIMAL DIGITS. 6C000630 
Cc 6C000640 
Cc IFLAG IS THE ROUNDED STATUS CODE WHICH SHOULD 6C000650 
Gc BE CHECKED BY THE USER IN THE CALLING PROGRAM 6C000660 
CG =0 NO ERROR 6C000670 
c =1 INPUT DATA WITHIN EXTRAPOLATION RANGES AS 6C000680 
Cc GIVEN IN API 2540, TABLE 6,11.1.6 6C000690 
Cc =-1 INPUT DATA OUTSIDE SPECIFIED RANGE OF 60000700 
Cc APPLICATION AS GIVEN IN API 2540, 6C000710 
C TABLE 6,11.1.6 6C000720 
C 6C000730 
DATA IEP1,IEP2, IEP3/2500 ,2000,1500/ 6C000740 

DATA NBP1 ,NBP2/2700,9300/ 6C000750 

DATA IBP1,IBP2/5100,5300/ 6C000760 

DATA ITMP1 , ITMP2, ITMP3/3000, 2500 , 2000/ 6C000770 

DATA IBAS/600/ 6C000780 
VCFC=-1.0000 6C000790 
VCFP=-1.0000 6CG000800 
IFLAG=-1 6C000810 

Cc 6C000820 
Cc ROUND INPUT VALUES 6C000830 
CG 6C000840 
IALF=(ALF60* 100000000 .0+25.0)/50.0 6C000850 
IALF=IALF*5 6C000860 
ALF60=FLOAT (IALF)/10000000. 60000870 
ITEMP=DEGF*10.0+0.5 6C000880 
DEGF=FLOAT( ITEMP)/10.0 6C000890 

Cc 6C000900 
C CHECK ALPHA RANGES 60000910 
Cc 60000920 
IF (IALF-NBP1 )10,20,20 66000930 

10 CONTINUE 6C000940 
RETURN 6C000950 

20 IF(IALF-NBP2)30,30,10 6C000960 

30 CONTINUE 66000970 

Cc 6C000980 
Cc CHECK VALID TEMPERATURE RANGES 6C000990 
Cc 66001000 
IF( ITEMP)40,50,50 6C001010 

40 CONTINUE 66001020 
RETURN 66001030 
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50 IF(IALF-IBP1 )60,60,70 
60 IFC ITEMP-ITMP1 )100,100,40 
70 IFC(IALF-IBP2)80,80,90 
80 IFC ITEMP-ITMP2)100,100,40 
90 IF(ITEMP-ITMP3)100,100,40 
100 CONTINUE 

TIALF=IALF 

IDT=ITEMP - IBAS 


Cc 
Cc CALCULATE VCF 
Cc 
CALL VCF6C(TIIALF,IDT,IVCF) 
IFLAG=0 
Cc 
Cc CHECK TO DETERMINE IF IN EXTRAPOLATED REGION 
Cc 
TF(IALF-IBP1)101,101,110 
101 IFC ITEMP-IEP1 )140,140,105 
105 IFLAG=1 
GO TO 140 
110 IF(IALF-IBP2)120,120,130 
120 IFC ITEMP-IEP2)140,140,105 
130 IF(ITEMP-IEP3)140,140,105 
140 CONTINUE 
Cc 
Cc CALCULATE PRINT AND CALCULATION VALUES OF VCF 
Cc PRINT VALUE (PVCF) ROUNDED TO 4 DECIMAL DIGITS 
Cc CALCULATION VALUE (CVCF) ROUNDED TO 5 SIGNIFICANT DIGITS 
Cc 
JVCF=(IVCF/1000+5)/10 
PVCF=JVCF 
PVCF=PVCF/10000. 
IF (IVCF -100000000)150,160,160 
150 CONTINUE 
Cc 
Cc VCF LESS THAN ONE, FIVE DECIMALS RETURNED 
Cc 
JVCF=(IVCF/100+5)/10 
CVCF=JVCF 
CVCF=CVCF/100000. 
GO TO 180 
160 CONTINUE 
CVCF=PVCF 
180 CONTINUE 
VCFC=CVCF 
VCFP=PVCF 
RETURN 
END 
SUBROUTINE VCF6C(IALF , IDT,IVCF) 
Cc 
Cc THIS MODULE IS DESIGNED TO CALCULATE VOLUME 
Cc CORRECTION FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE 
Cc AS INTEGERS, THE SUBROUTINE RETURNS WITH A 8 
Cc OR 9 DIGIT VALUE DEPENDENT UPON WHETHER IDT 
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60001040 
60001050 
6C001060 
60001070 
60001080 
6C001090 
6C001100 
60001110 
6C001120 
6C001130 
6C001140 
60001150 
6C001160 
60001170 
60001180 
6C001190 
6C001200 
60001210 
6C001 220 
6C001230 
60001240 
6C001250 
6C001260 
6C001270 
6C001280 
60001290 
6C001300 
6C001310 
6C001320 
6C001330 
6C001340 
6C001350 
60001360 
60001370 
6C001380 
60001390 
6C001400 
6C001410 
60001420 
6C001430 
60001440 
6C001450 
6C001460 
6C001470 
6C001480 
6C001490 
6C001500 
6C001510 


60001520 
60001530 
6C001540 
60001550 
60001560 
60001570 
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Cc IS POSITIVE OR NEGATIVE. 60001580 
Cc 60001590 
Cc ALGORITHN- 6C001600 
Cc VCF=EXP( -ALPHA*DT(1.0+0.8*ALPHA*DT) ) 60001610 
Cc 60001620 
Cc CALCULATE ALPHA*DT 60001630 
Cc 60001640 
ITERM1=IALF *IDT 60001650 
CG 6C001660 
Cc CALCULATE 0.8 *ALPHA *DT 6C001670 
Cc 6C001680 
ITERM2=ITERM1 /5*4 6C001690 
Cc 6C001700 
Cc CALCULATE EXPONENT -ALPHA*DT(1.0+0.8*ALPHA*DT ) 60001710 
Cc 60001720 
CALL MPYC(ITERM1 , ITERM2, ITERM3) 6C001730 
IX=- (ITERM1+ITERMS ) 6C001740 
Cc 66001750 
Cc CALCULATE EXPONENTIAL( FIRST 7 TERMS OF POWER SERIES) 6C001760 
Cc 6C001770 
ISUM1=10000000041X 6C001780 
CALL MPYC(IX, IX, ISUM2) 60001790 
ISUM2=ISUM2 /2 60001800 
CALL MPYC( IX, ISUM2 , ISUM3) 66001810 
ISUM3=ISUM3 /3 6C001820 
CALL MPYC( IX, ISUM3 , ISUM4 ) 66001830 
ISUM4=I1SUM4 /4 6C001840 
CALL MPYC( IX, ISUM4 , ISUMS5 ) 6C001850 
ISUM5=ISUM5/5 66001860 
CALL MPYC( IX, ISUM5 , ISUM6 ) 66001870 
ISUM6=ISUM6 /6 6C001880 
IVCF=ISUM1+ISUM2+1ISUM3+1SUM4+ISUM5+ISUM6 60001890 
RETURN 6C001900 
END 60001910 
SUBROUTINE MPYC(IX,IY,IZ) 60001920 
Cc THIS MODULE PERFORMS INTEGER MULTIPLICATION. THE TOTAL 60001930 
Cc NUMBER OF DIGITS IN IX AND IY MUST NOT EXCEED 17. OTHER 60001940 
Cc WISE, OVERFLOW WILL OCCUR. 60001950 
Cc 60001960 
IUt1 = IX / 10000 60001970 
K1 = 10000 * IU1 60001980 
IVi = IX - K1 60001990 
TU2 = IY / 10000 6C002000 
K2 = 10000 * IU2 6C002010 
Iv2 = IY - K2 60002020 
K3 = [U1 * IV2 + IUu2 * IVi + IV1 * IV2 / 10000 6C002030 
IZ = (K3 + 5000) / 10000 + IU1 * IuUe2 60002040 
RETURN 6C002050 
END 6C002060 
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11.1.6.9 IMPLEMENTATION PROCEDURE FOR SUBROUTINE TAB6C 


In today's worid there is a rapidly developing trend to use computers in 
custody transfer measurements, accounting work, process control systems, and a 
variety of other uses where tables must be incorporated into computer codes. 
Yet many of the printed tables are almost impossible to code due to the fact 
that someone has slightly modified selected values to differ from those 
obtained using the mathematical expression that supposedly generated the 
tables. To overcome this problem it is often required to add extensive excep- 
tion tables to the codes. This makes the codes large and cumbersome to modify, 
and restricts their use to larger computer systems. Also with the development 
of better measuring devices it is often possible to gain more digits of preci- 
sion in the table parameters, necessitating finer grid of the tabular values, 
resulting in larger volumes of printed tables to be handled. 

In addition, as the on-line use of computers for metering purposes 
increases, the direct use of printed tables will decrease; therefore, the new 
Standard is an explicit implementation procedure rather than a set of equa- 
tions or a set of tables. {It must be remembered that the standardization of 
the implementation procedure implies standardization of the set of mathemati- 


cal expressions used within the code. Absofute adherence to the procedure 


will help to insure that all computers and computer codes of the future, meet- 
ing the specifications and restrictions, will be able to produce the same 
results. It is believed that this procedure will allow for the maximum 


machine and code independence. The procedure was implemented in computer sub- 
routines issued by APi in 1980 using ANSI/ASA FORTRAN. The subroutines maxi- 
mized precision by the use of 32-bit integer arithmetic. 

The procedure as described in the following text can, by careful and 
deliberate application of numerical analysis, be used with the majority of 
languages and word sizes in present or anticipated use. To use the standard 
procedure means to maintain absolute and unwavering adherence to the number of 
digits specified at each step and to the calculation procedure as outlined. 

In the procedure, the nomenclature used is that of ASTM E380-76, unless 
an explicit procedure is given below, in which case the procedure given below 
overrides that given by ASTM £380-76. 

in the procedure the nomenclature (XXX.XX) means five (5) mathematically 


significant digits. 
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the procedure the nomenclature (XXX.XX) means five (5) mathematical ly 
nt digits. 

term rounding as used in the procedure means: Consider only the 

it to the right of the desired position and 

If that digit is greater than 4, increment the desired position by 
one and drop the remaining digits to the right of the desired posi- 
tion. 

lf that digit is less than 5, simply drop the remaining digits to 
the right of the desired position. 


Calculation Procedure 


Round input variables of coefficient of thermal expansion (ALF60) and 
observed temperature 
a» Round coefficient of thermal expansion to the nearest 
-Q000005 and carry as 7 digit result 
iG. ALF60 = .OOOXXXX 
b. Round observed temperature to the nearest 
O.1 °F and carry as 4 digit result 
i.e. observed temperature (DEGF) = XXX.X 


Calculate At 
define At = DEGF - Tease 
Note: Tpase carried to 3 digits XX.xX (60.0) 
Carry At = XXX.X 


Calculation of VCF 
define VCF = EXP[-aATt(1.0 + 0.8 aAT)] 
= EXPl[-aA t - 0.8 a4 At2] 
a. Calculation of exponent 
a(1) aA t = «XXXXXXXX 
a(2) «8B aAt = .XXXXXXXX 
a(3) .8a4 At2 = .OXXXXXXX rounded to nearest .00000001 
a(4) -aAt - 0.8 a2 At2 = O.XXXXXXX with any trailing 
digits dropped 
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be Calculation of exponential 
VCF = EXPI-aAt - 0-8 a2 AT2] = X.XXXXXX 
using at least the first 7 terms of the power series expansion 


of eX 


Computational 


1.XXXX rounded to nearest 0.0001 if VCF > 1 
value of VCF 


O.XXXXX rounded to nearest 0.00001 if VCF < 1 


Table value 
of VCF = X.XXXX rounded VCF to nearest 0.0001 


The 1980 integer FORTRAN code issued by API contained an integer multi- 


plication algorithm. A description of each is contained in the following: 


INTEGER MULTIPLICATION PROCEDURE 
(FOR 32 BIT ARITHMETIC) 
DATA DEFINITION 

X, Y are integer numbers that are equal to or less than 2 * 10° 
(slightly tess than 231). A larger value may cause overflow. In addition, 
the total number of digits in X and Y must not exceed 17, otherwise overftow 
will occur. 

Z is the product XY scaled by 1078, i.e. Z = xv/108, 

Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically, at feast 15 digits are 
needed to obtain 6 digit precision, 16 for 7 and 17 for 8. 

The largest values of X and Y that may be used are 2 000 000 000 and 
99 999 999. 

CALCULATION 


X/10000 = U 
10000 U; = Ky 
X~ Ky = V1 
Y¥/10000 = Up 
10000 Up = K2 
Y-Kz = V9 


(U,V2) + (UaV_) + (V{V2/10000) = Kz 
(Kz + 5000)/10000 + (U4U) = Z 
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Note: Z has been scaled by 10-8 and may have to be rescaled before use. 


TOTAL DIGITS IN X_AND Y 


DIGITS IN PRODUCT, Z 


12-43 aa (dS te ar 
3-4 4-5 5-6 6-7 7-8 8-9 


Examples for Checkout 


The following examples are designed to aid in checkout procedures for 


both the existing API subroutine and any subroutines which are developed using 


the implementation procedure outlined above. The lines of the examples are 


numbered to correspond to the corresponding tines within the implementation 


procedure. 


EXAMPLE i: Assume a liquid petroleum product with an input coefficient of 


thermal expansion corrected to 60 °F of 0.0004181 and an observed 


temperature of 105.03 °F. Calculate the VCF required to correct 


the volume to 60 °F, correct to 4 decimal digits. 


STEP 1: a) 
b) 
STEP 2: At = 


rounded ALF60 = .0004180 
rounded DEGF 


105.0 


45.0 


STEP 3: Calculation of VCF 


ae 
a(l) 
a(2) 
a(3) 
a(4) 
De 


Calculation of exponent 
0.01881000 

0.01504800 

0.00028505 

-0.01909305 

Calculation of exponential 
VCF = 0.981088 


VCF correct to 4 decimal digits = 0.9811 


EXAMPLE 2: Assume a liquid petroleum product with an input coefficient of 


thermal expansion corrected to 60 °F of .0005625 and an observed 
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temperature of 39.1 °F. Calculate the VCF required to correct the 


volume to 60 °F, correct to 5 significant figures. 


0005625 
39.1 


STEP 1: a. rounded ALF60 
b. rounded DEGF 


STEP 2; At = -20.9 


STEP 3: Catculation of VCF 

ae Calculation of exponent 
a(1) -0.01175625 
a(2) -0.00940500 
a(3) 0.00011056 
a(4) 0.01164569 

be Calculation of exponential 
VCF = 1.011713 


to 5 significant figures 1.0117 


Assume a liquid petroleum product with an input coefficient of 
thermal expansion corrected to 60 °F of 0.0003355 and an observed 
temperature of 269.4 °F. Calculate the VCF required to correct the 


volume to 60 °F, correct to 5 significant figures. 


STEP 1: a. rounded ALF60 
b. rounded DEGF 


0003355 
269.4 


STEP 2: At = 209.4 


STEP 3: Calculation of VCF 
a. Calculation of exponent 
a(1) 0.07025370 
a(2) 0.05620296 
a(3) 0.00394846 
a(4) -0.074202 16 
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b. Calculation of exponential 


VCF = .928483 


VCF correct to 5 significant figures = 0.92848 


11.1.23 TABLES 23A and 23B— 
Correction of Observed Relative 
Density to Relative Density 
60/60°F 


TABLES 23A and 23B give values of relative density 
60/60°F corresponding to the relative density of that 
fluid at temperatures other than 60°F. It is assumed that 
the observed densities are obtained with a glass 
hydrometer. The density measurements at tempera- 
tures other than 60°F require two corrections: the first 
is for the change in volume of the glass hydrometer with 
temperature, the second is for the change in the volume 
of the fluid with temperature. The first correction is 
necessary because the glass hydrometers are calibrated 
for 60°F. Both corrections are applied in this table. 

The data are represented by two tables to maximize 
accuracy while maintaining convenience of use: 


TABLE 23A Generalized Crude Oils 
(see Volume IV) 

TABLE 23B Generalized Products 
(see Volume V) 


The development and intended use of these tables is 
described in 11.1.6. The parameters Ky and K, may be 
found in 11.1.24.7.1 (see Volume VI). 

The limits of these tables are illustrated in Figures 
X-9 and X-10. 


Data Range 


11.1.23.1 TABLE 23A—GENERALIZED CRUDE 
OILS, CORRECTION OF OBSERVED 
RELATIVE DENSITY TO RELATIVE 
DENSITY 60/60°F 


TABLE 23A gives the values of relative density 
60/60°F corresponding to hydrometer readings at ob- 
served temperatures other than 60°F. In converting the 
API hydrometer reading at the observed temperature 
to the corresponding relative density 60/60°F, two cor- 
rections are necessary: the first arises from the change 
in volume of the glass hydrometer with temperature 
(stem correction) and the second from the change in 
volume of the crude oil with temperature. Both have 
been applied in this table. The values of relative den- 
sity 60/60°F in this table are the result of a computer 
procedure which is the Standard (see 11.1.23.2 and 
11.1.23.3). 

The temperature ranges of this table are: 


Relative Density 60/60°F °F 
0.8250 to 1.0760 0 to 300 
0.7795 to 0.8250 0 to 250 
0.6110 to 0.7795 0 to 200 


The values of relative density 60/60°F given in this 
table are based on data from the U.S. National Bureau 
of Standards and from other published data. Portions of 


-8250 .7795 .7585 
Relative Density 


Figure X-9 — Data Limits for TABLE 23A 
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LLL 


Data Range 


LZ 


CA Extrapolated 5 


1.0760 .8250 .7795 -6535 


Relative Density 


Figure X-10 — Data Limits for TABLE 23B 


the density and temperature ranges represent areas be- 
yond these data. Thus, mathematical techniques were 
employed to extrapolate beyond the density and tem- 
perature ranges of the given data to determine the value 
of relative density 60/60°F for these areas. These values 
are denoted by an asterisk (*). Extension of this table 
beyond the ranges shown is not recommended. 


Increments used in this table for determining relative 
density 60/60°F are 0.5°F and 0.0020 relative density. 
Interpolation with temperature is not intended since 
there is no practical method of interpolation that will 
produce the accuracy obtainable from the Standard. 
However, interpolation with relative density to one ad- 
ditional significant digit can be reasonably made. Inter- 


polation is not required if the TABLE 23A results are 
to be used as entries to TABLE 24A. 


This table must be entered with hydrometer 
reading measured with a soft glass hydrometer 
calibrated at 60°F and an observed temperature. 


A correction to the glass hydrometer reading 
has been incorporated into the table to account 
for the thermal expansion of glass. The hydrom- 
eter constant, as defined in the Report on the De- 
velopment, Construction, Calculation, and Prep- 
aration of the ASTM-IP Petroleum Measurement 
Tables (1960), varies with temperature according 
to the following: 

HYC = 1 — 0.00001278 (t — 60°F) 
— 0.0000000062 (t — 60°F)” 


11.1.23.2 PROGRAM DOCUMENTATION FOR SUBROUTINE 
TAB23A—GENERALIZED CRUDE OILS, CORRECTION OF 
OBSERVED RELATIVE DENSITY TO RELATIVE DENSITY 60/60°F 


Subroutine Title: 


Description: 
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ABSTRACT 


TAB23A -— TABLE 23A, Generalized Crude Oils, 
Relative Density Correction to 60/60 °F. 


This subroutine is designed to calculate relative 
density 60/60 °F corresponding to relative 
densities observed at temperatures other than 

60 °F. 
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Program Responsibility: American Petroleum Institute 
Measurement. Coordination 
2101 L Street N.W. 
‘Washington, D.C. 20037 


Date Issued: August 1980 
Language: FORTRAN, ANSI/ASA Standard 
Reference: API Standard 2540, TABLE 24, 11.1.24 


THIS SUBROUTINE WAS DEVELOPED USING THE MATHEMATICAL ALGORITHMS 
AND SPECIFICATIONS DESCRIBED IN THE DOCUMENT PROCEDURE 11.1.23.3. 
ANY MODIFICATION TO THIS SUBROUTINE MUST RIGIDLY ADHERE TO THE 
SAME ALGORITHMS AND SPHCIFICATIONS. 


11.1.23.2.1 Introduction 


TAB23A is a computer subroutine designed to calculate for substances 
characterized as crude oil the value of relative density 60/60 °F 
corresponding to relative densities observed at temperatures other than 

60 °F. The subroutine accepts as input the observed relative density 
rounded to the nearest 0.0005 and the temperature rounded to the nearest 
0.1 °F. If either input value has not been properly rounded, the 
subroutine will round the values and return the corrected values. ‘The 
subroutine returns the value of relative density 60/60 °F rounded to the 
nearest 0.0001 and a status flag for user convenience. The flag is set to 
-1 if an error oondition occurs and to +1 if the value of the relative 
density 60/60 °F is an extrapolation. The limits of the correlation 
including the extrapolated region are depicted in Figure X-9. The calling 
program must check the flag and provide user with appropriate warning 
message or program termination. The flag is set to zero when the input 
variables and the relative density at 60 °F are within the limits of the 


correlation. 
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11.1.23.2.2 Subroutine Specifications 


The range of application is: 


Relative Density Temperature, °F 
0.6110 to 0.7795 0 to 200 
0.7800 to 0.8250 0 to 250 
0.8255 to 1.0760 0 to 300 


Referenced modules: ALF23A, DIV23A, MPY23A, VCF23A 
FORTRAN functions: FLOAT, IABS 


Average execution time: 675 entries/CPU second 
IBM 370/168 


The subroutines are written in ANSI/ASA FORTRAN using integer arithmetic. 


The size and storage requirements are: 


1. Compilable source statements 122 
2. Decimal storage bytes 3482 
3. Words 871 


11.1.23.2.3 Calling Sequence 
CALL TAB23A (SG, DEGF, IHYDRO, SG60, IFLAG) 
INPUT DESCRIPTION 


SG - Relative density at observed temperature 
(SG returned ‘will be rounded to nearest 0.0005) 


DEGF -—- Observed temperature, °F 
(DEGF returned will be rounded to nearest 0.1 °F) 


IHYDRO - Hydrometer switch 
0: The relative density was observed with a glass hydro- 
meter and a hydrometer correction is needed 
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1: The relative density was determined from an on-line 
densitometer and a hydrometer correction is not 
needed. 


OUTPUT DESCRIPTION 
SG60  - Corresponding relative density 60/60 °F rounded to nearest 0.0001 


IFLAG - Status Code 
O: Indicates input variables and calculated results are 
within the range of application 
1: Indicates input variables are in extrapolated region 
-l: Indicates input variables or calculated results are 
outside the range of application 
NOTE: If a non—convergence occurs, the subroutine prints the following 


message: 


AT XXX.X DEGREES F AND X.XXXX RELATIVE DENSITY, A CORRESPOND- 
ING RELATIVE DENSITY 60/60 °F COULD NOT BE DETERMINED. 


This message should not occur unless the code has been altered or 
incorrectly reproduced. Follow Section 11.1.23.3, Implementation 
Procedure, and test the subroutine exactly as described. ‘The 
status flag will be set to -1, SG60 to -9.9999, and program control 


returned to the calling routine. 


11.1.23.2.4 Method of Calculation 


This subroutine uses a convergence technique to determine the relative 

density 60/60 °F that corresponds to a relative density observed at some 
temperature other than 60 °F. Since the equations are expressed in terms 
of density, the relative density is converted to density by the following 


relationship: 


p, = relative density * 999.012 
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where 


Pe density at temperature t 


999.012 = density of water at 60 °R, Ke/m> 


The coefficient of thermal expansion at the base temperature of 60 °F is 


related to density at the base temperature by 


%60 2 
°60 


The values of P, and a are used in the volume correction factor equation 


60 


to compute P60: 
= t = = 
VCF ie EXP [-a,, At(1 + 0.80, At) | 


Thus P, = Peg EXP [-%60dt (1 + 0.8a,9At)| 


where Peo = density at the base temperature 


At = t - 60.0 


Since the equation for op 60 cannot be solved explicitly, a successive 
approximation iterative scheme is used to obtain a solution. The initial 
estimate of p 60 is the value of the density at observed temperature t. 
This approximation is substituted into the right hand side of the equation 
to obtain a second value approximation. This process of substituting into 
the right hand side of the equation and estimating a new value from the 
other is repeated until two consecutive results are in agreement to the 
desired degree of accuracy. In subroutine TAB23A, a converged solution is 
reached when the change in density is less than 0.05 Kg/m? in two 


successive passes. 


A full explanation of the equations and the values of the parameters 
Kg and Kj may be found in API Standard 2540, TABLE 24, 11.1.24. 
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11.1.23.2.5 Examples 
These examples are tutorial in nature and are not intended to be suffi- 


cient for subroutine checkout. The examples given in the Implementation 
Procedure, Section 11.1.23.3, are to be used for the computer checkout. 


Example 1 
SG = 0.7632 (observed with a glass hydrometer) 
DEGF = 87.5 
ITHYDRO = 0 


CALL TAB23A (SG,DEGF,IHYDRO ,SG60 , IFLAG) 


After the call: SG = 0.7630 
DEGF = 87.5 
THYDRO = 0 
SG60 = 0.7749 
IFLAG = 0 
Example 2 
SG = 0.6390 (observed with a glass hydrometer) 
DEGF = 175.51 
IHYDRO = 0 


Call TAB23A (SG,DEGF,IHYDRO ,SG60 , IFLAG) 


After the call: SG = 0.6390 
DEGF = 175.5 
IHYDRO = 0 
SG60 = 0.6956 
IFLAG = 1 


Copyright por American Petroleum Institute 
Mon Feb 07 13:42:23 2005 


API MPMS*11.1 VOL*X 60 MM 0732290 0526019 38T 


X-154 CHAPTER 11—PuysicaL PrRoreaties DaTa 
Example 3 
SG = 0.6390 (observed with a glass hydrometer) 
DEGF = 7.5 
IHYDRO = 0 


Call TAB23A (SG,DEGF,IHYDRO ,SG60 , IFLAG) 


After the call: SG = 0.6390 
DEGF = 7.5 
IHYDRO = 0 
SG60 = -9.9999 
IFLAG = -l 
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11.1.23.2.6 FLOWCHART 


INPUT: RELATIVE DENSITY 
OBSERVED TEMPERATURE 


ROUND INPUT DATA 
TO SPECIFICATIONS 


SET STATUS FLAG 
AND REL.DEN. 

60/60°F = - 9.9999 

RETURN 


DATA WITHIN 
BOUNDS OF 
CORRELATION 


CALCULATE DELTA T 


CONVERT RELATIVE DENSITY TO DENSITY 


NEED 
HYDROMETER 
CORRECTION 


COMPUTE HYDROMETER CORRECTION 


APPLY HYDROMETER CORRECTION TO DENSITY 


INITIALIZE 60°F DENSITY 
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CALCULATE ALPHA 


CALCULATE VCF 


CALCULATE NEW 
60°F DENSITY 


CHECK FOR 
CONVERGENCE 


YES 


SET STATUS FLAG = -1 


NO AND REL. DEN. 
tleg hale al 60/60"F = -3.9999 
RETURN 


YES 


CALCULATE RELATIVE DENSITY 60/60°F 


REL. DEN. IN 
EXTRAPOLATED 
REGION 


YES SET STATUS FLAG = 1 
RETURN 


NO 


SET STATUS FLAG = 0 
RETURN 
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11.1.23.2.7 Subroutine Listing 


TAB23A This subroutine accepts relative density and the observation 


temperature and determines the corresponding relative density 
60/60 °F for Generalized Crude Oils. 


Referenced Modules 


ALF23A This module calculates the coefficient of thermal expansion 


DIV23A 


MPY23A 


VCF23A 


needed to determine a volume correction factor. 


This module is designed to produce additional accuracy from 
an integer divide. 


This module is designed to produce additional accuracy from 
an integer miltiplication. 


This module calculates a volume correction factor. 


SUBROUTINE TAB23A(SG, DEGF , IHYDRO ,SG60, IFLAG) 


q00n0gg0nqNgn0gggADgGANIANGD 


(CG) COPYRIGHT 1980 
AMERICAN PETROLEUM INSTITUTE 
ALL RIGHTS RESERVED 


THIS SUBROUTINE IS A VOLUNTARY STANDARD AND WAS DEVELOPED 
UNDER THE AUSPICES OF THE JOINT API-ASTM COMMITTEE ON STATIC 
PETROLEUM MEASUREMENT IN PART FROM DATA GENERATED BY A 
PROJECT FUNDED BY THE AMERICAN PETROLEUM INSTITUTE AT THE 
U.S. NATIONAL BUREAU OF STANDARDS, GAITHERSBURG, MARYLAND. 


INQUIRIES CONCERNING ITS APPLICATION SHOULD BE ADDRESSED TO: 


AMERICAN PETROLEUM INSTITUTE 
MEASUREMENT COORDINATION 
2101 L STREET, N.W. 
WASHINGTON, DC 20037 


Copyright por American Petroleum Institute 


Mon Feb 07 13:42:24 2005 


X-157 


23A00010 
23A00020 
23A00030 
23A00040 
23A00050 
23A00060 
23A00070 
23A00080 
23A00090 
23A00100 
23A00110 
23A00120 
23A00130 
23A001 40 
23A00150 
23A00160 
23A00170 
23A00180 
23A00190 
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He AK eK eK ok kk 


: 
-1 


DATA IBASE 


DATA LIM1, 


DATA IBP1, 


oo an 


DATA ITMP1, 
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- INPUT OR CALCULATED RESULTS IN EXTRAPOLATED REGION 23A00640 
- INPUT OR CALCULATED RESULTS NOT WITHIN LIMITS OF 23A00650 
CORRELATION 23A00660 


Cc 
c * * 23A00210 
c * THIS SUBROUTINE OR THE MATHEMATICAL RELATIONSHIPS * 23400220 
Cc * REPRESENTED THEREBY MAY BE USED BY ANYONE WISHING * 23A00230 
Cc * TO DO SO, BUT THE AMERICAN PETROLEUM INSTITUTE, THE * 2300240 
Cc * AMERICAN SOCIETY FOR TESTING AND MATERIALS, AND THE * 23400250 
c * INSTITUTE OF PETROLEUM AND THEIR RESPECTIVE MEMBERS AND * 23A00260 
Cc * THE U.S. NATIONAL BUREAU OF STANDARDS, SHALL NOT BE HELD * 23A00270 
c * RESPONSIBLE OR LIABLE IN ANY WAY FROM LOSS OR DAMAGE, * 23400280 
Cc * INCLUDING, BUT NOT LIMITED TO, CONSEQUENTIAL DAMAGE, * 23A00290 
Cc * RESULTING FROM SUCH USAGE OR FOR VIOLATION OF ANY FEDERAL, * 23A00300 
Cc * STATE, OR MUNICIPAL LAWS, REGULATIONS OR PRACTICES OF THE * 23A00310 
Cc * UNITED STATES, OR OF ANY FOREIGN COUNTRY. * 23400320 
c * * 23400330 
Cc Be AG oe ae oe oe a ee ote a ae ae ote te ok oe oe ole Me ate ae ae ke le oe ie ok ie at oe oe oie ee ak ae ke ee de oe ak ee ae de ee eek eek eke DO QSANO BAO 
Cc 23A00350 
Cc PURPOSE 23A00360 
c 23A00370 
c THIS SUBROUTINE IS DESIGNED TO ACCEPT AS INPUT A RELATIVE 23A00380 
c DENSITY (SG) AT SOME OBSERVED TEMPERATURE (DEGF) IN DEGREES 23400390 
Cc FAHRENHEIT AND CALCULATE THE CORRESPONDING RELATIVE DENSITY 23A00400 
c 60/60 DEGREES FAHRENHEIT FOR TABLE 23A, GENERALIZED CRUDE OILS. 23A00410 
c THE USE OF A GLASS HYDROMETER CORRECTION IS OPTIONAL. 23A00420 
Cc 23A00430 
Cc EXTERNAL FUNCTIONS OR SUBPROGRAMS 23400440 
Cc 23A00450 
Cc ALF23A, DIV23A, MPY23A, RHO23A, VCF23A 23A00460 
Cc FORTRAN FUNCTIONS: FLOAT, IABS 23A00470 
Cc 23A00480 
Cc DESCRIPTION OF PARAMETERS 23400490 
c 23A00500 
Cc SG - RELATIVE DENSITY AT OBSERVED TEMPERATURE, NEAREST (IN) § 23A00510 
Cc .0005 (PROGRAM WILL ROUND SG TO THE NEAREST 23400520 
Cc .0005 AND RETURN ROUNDED VALUE. ) 23A00530 
c DEGF - OBSERVED TEMPERATURE, NEAREST 0.1 DEG F (IN) 23A00540 
c (PROGRAM WILL ROUND T TO THE NEAREST .1 23A00550 
c DEG F AND RETURN THE ROUNDED VALUE. ) 23A00560 
c IHYDRO - APPLICATION OF GLASS HYDROMETER CORRECTION (IN)  23A00570 
Cc 0 - HYDROMETER CORRECTION IS TO BE MADE 23A00580 
Cc 1 - HYDROMETER CORRECTION IS NOT TO BE MADE 23A00590 
c SG60 - CORRESPONDING RELATIVE DENSITY 60/60 DEGREES F (OUT)  23A00600 
Cc (ROUNDED TO THE NEAREST .0001) 23A00610 
c IFLAG - STATUS CODE (OUT)  23A00620 
Cc 0 - INPUT AND CALCULATED RESULTS IN CORRELATION LIMITS 23A00630 
c 
c 
Cc 
Cc BASE TEMPERATURE (60 DEGREES F) 23A00670 
/ 600 / 23A00680 
c 23A00690 
Cc UPPER AND LOWER DENSITY LIMITS (0, 100 API) 23400700 
LIM2 / 1074982, 610627 / 23A00710 
23400720 
BREAK POINTS FOR RELATIVE DENSITY (.7790 AND .8245 ) 23A00730 
IBP2 / 7790, 8245 / 23A00740 
23A00750 
MAXIMUM TEMPERATURES AT EACH BREAK POINT(200, 250, 300)23A00760 
ITMP2, ITMP3 / 2000, 2500, 3000 / 23400770 


Institute 
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c 23A00780 
Cc BEGINNING OF TEMPERATURE EXTRAPOLATIONS (150, 200 ,250)23A00790 
DATA IEP1, IEP2, IEP3 / 1500, 2000, 2500 / 23A00800 
Cc 23A00810 
Cc BEGINNING OF EXTRAPOLATIONS (.64110 - .7585) 23A00820 
DATA IESG / 7585 / 23A00830 
Cc 23A00840 
Cc COEFFICIENTS FOR CRUDE OILS 23A00850 
DATA KO, Ki / 3410957, 0O / 23A00860 
Cc 23A00870 
Cc DENSITY OF WATER 23A00880 
DATA IH20 / 999012 / 23A00890 
Cc 23A00900 
CG UNIT 6 IS THE OUTPUT UNIT. IF THE OUTPUT IS TO BE DIRECTED 23A00910 
C TO SOME OTHER UNIT, SET NOUT TO APPROPRIATE VALUE. 23A00920 
NOUT = 6 23A00930 
Cc ROUND SG TO NEAREST .0005 23A00940 
ISG = ( (SG * 100000) + 25 ) / 50 23A00950 
ISG = ISG * 5 23A00960 
SG = FLOAT(ISG) / 10000. 23A00970 
Cc 23A00980 
Cc CHECK FOR TEMPERATURE LESS THAN ZERO 23A00990 
IF ( DEGF ) 900, 10, 10 23A01060 
Cc ROUND TEMPERATURE TO NEAREST 0.1 DEG F 23A01010 
10 IT = ( (DEGF * 100) + & ) / 10 23A01020 
DEGF = FLOATCIT) / 10. 23A01030 
Cc IS SG LESS THAN .6110 CIF YES, BRANCH TO 900) 23A01040 
IF ( ISG - 6110 ) 900, 40, 40 23A01050 
Cc IS SG GREATER THAN 1.076 (IF YES, BRANCH TO 900) 23A01060 
40 IF ( ISG - 10760 ) 50, 50, 900 23A01070 
Cc IS SG GREATER THAN .7790 (IF YES, BRANCH TO 70) 23A01080 
50 IF ( ISG - IBPi ) 60, 60, 70 23A01090 
Cc IS TEMP GREATER THAN 200. (IF YES, BRANCH TO 900) 23A01100 
60 IF ( IT - ITMP1 ) 100, 100, 900 23A01110 
Cc IS SG GREATER THAN .8245 (IF YES, BRANCH TO 90) 23A01120 
70 IF ( ISG - IBP2 ) 80, 80, 990 23A01130 
CG IS TEMP GREATER THAN 250. (IF YES, BRANCH TO 900) 23A01140 
80 IF ( IT - ITMP2 ) 100, 100, 900 23A01150 
Cc IS TEMP GREATER THAN 300. (IF YES, BRANCH TO 900 23A01160 
90 IF ( IT - ITMP3 ) 100, 100, 900 23A01170 
100 CONTINUE 23A01180 
Cc 23A01190 
IFLAG = 0 23A01200 
IDT = IT - IBASE 23A01210 
Cc 23A01220 
Cc COMPUTE DENSITY (RHO = REL DEN * DENSITY OF WATER) 23A01230 
CALL MPY23A(ISG, IH20, IRHOT, 10) 23A01240 
IRHOT = ( IRHOT + 500 ) / 1000 23A01250 
Cc 23A01260 
Cc IS HYDROMETER CORRECTION TO BE USED (IF NO, BRANCH TO 140) 23A01270 
IF ( IHYDRO ) 101, 101, 140 23A01280 
Cc 23A01290 
Cc COMPUTE HYDROMETER CONSTANT AT DELTA T 23A01300 
Cc HYC = 1. - .00001278*(DEGF-60) - .0000000062*(DEGF-60)**2 23A01310 
101 IRD = 50 23A01320 
IF (IDT) 105, 110, 110 23A01330 
105 IRD = -50 23A01340 
410 IH1 = (127800 * IDT + IRD) / 100 23A01350 
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X-160 CHaPTER 11—Pnysical PROPERTIES DATA 


IH2 = (62 * IDT * IDT + 500) / 1000 
IHYG = 1000000000 - IH1 - IH2 


Cc 
Cc APPLY HYDROMETER CONSTANT TO DENSITY AT TEMPERATURE DEGF 
IRHO = IRHOT * 10 
CALL MPY23A(IRHO, IHYC, IRHOT, 10000) 
IRHOT = ( IRHOT + 50 ) / 100 
Cc 
re 
1440 JRHOT = IRHOT * 10000 
Cc 
IRHO60 = IRHOT 
Cc 
KRHO = 0 
Cc 
NP = 0 
Cc 
300 NP = NP + 1 
Cc 
CALL ALF23A( IRHO6O,KO,K1, IALF) 
Cc 
CALL VCF23A(IALF, IDT,IVCF) 
Cc 
IVCF = ( IVCF + 50 ) / 100 
Cc 
CALL DIV23A(JRHOT, IVCF, IRHO60 , 1000) 
Cc 
Cc 
IF ( IABS (IRHOGO - KRHO ) - 50 ) 500, 320, 320 
c 
320 KRHO= IRHO6O 
Cc 
IRHO60 = ( IRHOGO + 5 ) / 10 
Cc 
IF ( NP - 20 ) 300, 400, 400 
Cc 


400 IFLAG = -i 
SG60 = -9.9999 
WRITE (NOUT,6001) DEGF, SG 


23A01360 
23A01370 
23A01380 
23A01390 
23A01 400 
23A01410 
23A01 420 
23A01 430 
23A01440 
23A01450 
23A01 460 
23A01470 
23A01480 
23A01490 
23A01500 
23A01510 
23A01520 
23A01530 
23A01540 
23A01550 
23A01560 
23A01570 
23A01580 
23A01590 
23A01600 
23A01610 
23A01620 
23A01630 
23A01640 
23A01650 
23A01 660 
23A01670 
23A01680 
23A01690 
23A01 700 
23A01710 
23A01720 
23A01730 
23A01740 


6001 FORMAT(5H1 AT ,F6.1,15H DEGREES F AND ,F8.4,84H RELATIVE DENSITY, 23A01750 
1A CORRESPONDING RELATIVE DENSITY 60/60 F COULD NOT BE DETERMINED. )23A01760 


-RETURN 


ome) 


IS DENSITY GREATER THAN UPPER LIMIT (IF YES, BRANCH TO 900) 
500 IF ( IRHOGO - LIM1 ) 510, 510, 900 

IS DENSITY LESS THAN LOWER LIMIT (IF YES, BRANCH TO 900) 
510 IF ( IRHO6GO0 - LIM2 ) 900, 520, 520 


QO 


520 JRHOT = IRHO6O * 1000 


COMPUTE RELATIVE DENSITY 60/60 F 
CALL DIV23A(JRHOT , IH20, ISG60, 1000) 


ISG60 = ( ISG60 + 50 ) / 100 
FLOATING POINT VALUE ROUNDED TO NEAREST .0001 
SG60 = FLOAT(ISG60) / 10000. 


90 08 9 AN 9 


IS SG LESS THAN .7585 (IF NO, BRANCH TO 770) 
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23A01770 
23A01780 
23A01790 
23A01800 
23A01810 
23A01 820 
23A01830 
23A01840 
23A01850 
23A01 860 
23A01870 
23A01880 
23A01890 
23A01900 
23A01910 
23A01920 
23A01930 


760 


770 


780 


790 


800 


810 


oO oO ag Q0 0 4 


820 


900 


Qgaggqggqggagnag 


gaa0n0dnNnNadganaga0angoga 


API MPMS*11-1 VOL*X 60 MM 0732290 O5ceb0eb OLT 


SECTION 1—VOLUME CORRECTION FACTORS 


IF ( ISG - IESG ) 760, 760, 770 

SET SWITCH INDICATING EXTRAPOLATION REGION 
IFLAG = 1 
RETURN 

IS SG GREATER THAN .7790 (IF YES, BRANCH TO 
IF ( ISG - IBP1 ) 780, 780, 790 

IS TEMP GREATER THAN 150. (IF YES, BRANCH TO 
IF ¢ IT - IEP1 ) 820, 820, 760 

IS SG GREATER THAN .8245 (IF YES, BRANCH TO 
IF ( ISG - IBP2 ) 800, 800, 810 

IS TEMP GREATER THAN 200. (IF YES, BRANCH TO 
IF ( IT - IEP2 ) 820, 820, 760 

IS TEMP GREATER THAN 250. (IF YES, BRANCH TO 
IF ¢ IT - IEP3 ) 820, 820, 760 


CONT INUE 
RETURN 
SET SWITCH INDICATING OUTSIDE RANGE OF TABLE 
IFLAG = -1 
SG60 = -9.9999 
RETURN 
END 


SUBROUTINE DIV23A( INUM, IDENOM, TIRES, ISCALE) 


THIS SUBROUTINE IS DESIGNED TO PRODUCE ADDITIONAL 
ACCURACY FROM AN INTEGER DIVIDE WHERE THE NUMERATOR 

IS ISCALE GREATER THAN THE DENOMINATOR. THE SUBROUTINE 
ASSUMES PROPER SCALING OF BOTH THE INPUT NUMERATOR 

AND DENOMINATOR AND WILL RETURN THE RESULTS MULTIPLIED 
BY ISCALE. 


IRES1=INUM/ IDENOM 

TRES2=( INUM- IRES1 * IDENOM) * ISCALE / IDENOM 
IRES=IRES1 *ISCALE+IRES2 

RETURN 

END 


SUBROUTINE ALF23A(IRHO,KO,K1 ,IALF) 


THIS SUBROUTINE IS DESIGNED TO CALCULATE ALPHA FOR 

USE IN DETERMINATION OF VOLUME CORRECTION 

FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE AS INTEGERS 
THE SUBROUTINE RETURNS WITH A 8 DIGIT VALUE 


INPUT VARIABLES 
IRHO=DENSITY*100 (KILOGRAMS/CUBIC METRE) 
KO,K1= COEFFICIENTS OF DESIRED CURVE * 10000 


ALGORITHM - 
ALPHA=KO / RHO* *2+K1 /RHO 


CALCULATE K1/RHO 
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790) 
760) 
810) 
760) 


760 


23A 
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23A01940 
23A01950 
23A01 960 
23A01970 
23A01980 
23A01990 
23A02000 
23A02010 
23A02020 
23A02030 
23A02040 
23A02050 
23A02060 
23A02070 
23A02080 
23A02090 
23A02100 
23A02110 
23A02120 
23A02130 
23A02140 


23A02150 


23A02160 
23A02170 
23A02180 
23A02190 
23A02200 
23A02210 
23A02220 
23A02230 
23A02240 
23A02250 
23A02260 
23A02270 
23A02280 
23A02290 


23A02300 
23A02310 
23A02320 
23A02330 
23A02340 
23A02350 
23A02360 
23A02370 
23A02380 
23A02390 
23A02400 
23A02410 
23A02420 
23A02430 
23A02440 


API MPMSXL1-1 VOL*X 40 MM 0732290 OSebO0e? T5b 


rr ol Ne Ral della caN 
Cc 23A02450 
INUM=K1*10000 23A02460 
CALL DIV23A( INUM, IRHO, IALF1 , 10000) 23A02470 
c 23A02480 
c CALCULATE K0O/RHO**2 2302490 
c 23A02500 
INUM=K0 * 100 23A02510 
CALL DIV23A(INUM, IRHO, IALFS, 10000) 23A02520 
CALL DIV23A(IALFS, IRHO, IALF2, 10000) 23A02530 
IALF=(IALF1+IALF2+500 )/1000 23A02540 
RETURN 23A02550 
END 23A02560 
SUBROUTINE VCF23A(IALF,IDT, IVCF) 23A02570 
C 23A02580 
Cc THIS SUBROUTINE IS DESIGNED TO CALCULATE VOLUME 23A02590 
Cc CORRECTION FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE 23A02600 
c AS INTEGERS, THE SUBROUTINE RETURNS WITH A 8 23A02610 
Cc OR 9 DIGIT VALUE DEPENDENT UPON WHETHER IDT 23A02620 
Cc IS POSITIVE OR NEGATIVE. 23A02630 
C 23A02640 
c ALGORITHM- 23A02650 
c VCF=EXP(-ALPHA*DT(1.0+0.8*ALPHA*DT) ) 23A02660 
c 23A02670 
c CALCULATE ALPHA*DT 23A02680 
C 23A02690 
ITERM1=IALF*IDT 23A02700 
c 23A02710 
c CALCULATE 0.8*ALPHA*DT 23A02720 
c 23A02730 
ITERM2=ITERM1 /5*40 23A02740 
c 23A02750 
c CALCULATE EXPONENT -ALPHA*DT(1.0+0.8*ALPHA*DT) 23A02760 
C 23A02770 
CALL MPY23A(ITERM1 , ITERM2 , ITERM3 , 1000) 23A02780 
ITERM3 = ( ITERM3 + 500 ) / 1000 23A02790 
IX= -ITERM1 - ITERM3 23A02800 
re 23A02810 
c CALCULATE EXPONENTIAL(FIRST 7 TERMS OF POWER SERIES) 23A02820 
c 23A02830 
ISUM1=100000000+IX 23A02840 
CALL MPY23A(IX, IX, ISUM2, 1000) 23A02850 
ISUM2=( (ISUM2+50)/100)/2 23A02860 
CALL MPY23A( 1X, ISUM2 , ISUM3, 1000) 23A02870 
ISUM3=( (ISUM3+50)/100)/3 23A02880 
CALL MPY23A( IX, ISUM3 , ISUM4, 1000) 23A02890 
ISUM4=( (ISUM4+50)/100)/4 23A02900 
CALL MPY23A( IX, ISUM4 , ISUM5, 1000) 23A02910 
ISUM5=(( ISUM5+50)/100)/5 23A02920 
CALL MPY23A(1X, ISUM5 , ISUM6 , 1000) 23A02930 
ISUM6=(( ISUM6+50)/100)/6 23A02940 
IVCF=1ISUM1+ISUM2+1ISUM3+1SUM4+ISUM5+ISUM6 23A02950 
RETURN 23A02960 
END 23A02970 
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current: 
updated: 


current: 
updated: 


current: 
updated: 


current: 
updated: 


API MPMS*11-1 VOL*X 80 MM 0732250 0526026 33c 


SECTION 1—VoLUME CORRECTION FACTORS 


SUBROUTINE MPY23A(IX,IY,1IZ,ISCALE) 
THIS ROUTINE PERFORMS INTEGER MULTIPLICATION. THE TOTAL 
NUMBER OF DIGITS IN IX AND IY MUST NOT EXCEED 17. OTHER 
WISE, OVERFLOW WILL OCCUR. 


IU1 = IX / ISCALE 
K1 = ISCALE * TU1 
IvV1 = IX - K1 

IU2 = IY / ISCALE 
K2 = ISCALE * IU2 


Iv2 = IY - K2 
K3 = IU1 * IV2 + IU2 * IVi + IV1 * IV2 / ISCALE 
IZ = (K3 + ISCALE/2) / ISCALE + IUui1 * IvU2 
RETURN 
END 

Errata 


Please make the following updates to this subroutine listing. For an explanation 


of the updates see 11.1.6. 


BREAK P@INTS FOR RELATIVE DENSITY («7790 AND .8245) 
BREAK P@INTS FOR RELATIVE DENSITY (.7795 AND .8250) 


DATA IBP1, IBP2 / 7790, 8245 / 
DATA IBP1, IBP2 / 7795, 8250 / 


IS SG GREATER THAN .7790 (IF YES, BRANCH T@ 790) 
1S SG GREATER THAN .7795 (IF YES, BRANCH T@ 790) 


IS SG GREATER THAN -8245 (IF YES, BRANCH T@ 810) 
IS SG GREATER THAN .8250 (IF YES, BRANCH T@ 810) 


11.1.23.3 IMPLEMENTATION PROCEDURE FOR SUBROUTINE TAB23A 


The use of the computer has gained widespread acceptance throughout the 


petroleum industry. 


Computers are used for accounting purposes, in 


process simulation and modeling, data retrieval and evaluation, and are 


now being used extensively in custody transfer measurements and trans- 


actions. 


In 1968, the American Petroleum Institute recognized the need 


X-163 


23A02980 
23A02990 
23A03000 
23A03010 
23A03020 
23A03030 
23A03040 
23A03050 
23A03060 
23A03070 
23A03080 
23A03090 
23A03100 
23A03110 
23A03120 


23A00730 
23A00730 


23A00740 
23A00740 


23A01980 
23A0 1980 


23A02020 
23A02020 


for incorporating existing petroleum measurement tables into computer code. 
In June of 1973, a subroutine for TABLE 6, Volume Reduction to 60 °F, was 


made available. 


Since then many of the other standardized petroleum 


measurement tables have been made available as computer subroutines. 
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However, the computerization of an existing table of numbers proved to be 
a very difficult task. For instance, it proved to be impossible to use 
the mathematical expression that was supposedly used to generate the table 
values and calculate values identical to the tabular entries. This was 
because some of the values entered into the tables had heen slightly 
modified and also because the procedures used to round the calculated 
values were inconsistent. 


The only way to overcome these problems in a computer subroutine was to 
Manually locate all the table entries that did not agree with the calcu- 
lated values and add extensive "exception tables" to the code. This made 
the code lengthy and somewhat cumbersome to modify and to some extent 
restricted its to larger computing systems. 


The working group for TABLE 6 revision realized the importance of elimi- 
nating any potential for such problems in the future and also recognized 
the need to have computer subroutines available at the time the new 
petroleum measurement tables were released. The working group decided to 
outline an explicit implementation procedure to be followed when using the 
new correlation for volume correction factors. This implementation 
procedure would then be the Standard rather than a set of equations or set 
of tables. Standardization of an implementation procedure implies 
standardization of the set of mathematical expressions used within the 
computer oode. Absolute adherence to the outlined procedure will insure 
that all computers and computer code of the future, meeting the stated 
specifications and restrictions, will be able to produce identical 
results. Such a procedure allows for the maximum machine and code 


independence. 


The implementation procedure as described in the following text can by 
careful and deliberate application of numerical analysis be followed 
through the majority of language and word sizes in present and anticipated 
use. To follow the standard procedure means absolute and unwavering 
adherence to the number of digits specified at each step and to the 
calculational procedure as outlined. 
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In the procedure, the nomenclature digits (XXX.XX) means mathematically 
significant digits as defined in ASTM E380-76. In the previous example, 
all five (5) digits in the parenthesis are mathematically significant. 


At various steps in the implementation procedure, calculated results are 
rounded or truncated. When rounding a result to fewer digits than the 
total number available, the following procedure which was used overrides 
that of ASTM E380-76: 


a) when the first digit to be discarded is less than 5, the last digit 
retained is not changed. 

b) when the first digit to be discarded is greater than 4, the last 
digit retained is increased by cme unit. 


The procedure used in truncating a result to fewer digits than the total 
number available is to simply discard all digits following the last digit 
to be retained and leaving the last retained digit unchanged. 


Another specification is that the mefficients used to relate the thermal 
expansion ooefficient at 60 °F to the 60 °F density base and all other 
constants needed in the correlation must be used to exactly the number of 
digits specified. 


Calculation Procedure 


Step 1: Round input variables 
a) Round relative density to nearest 0.0005 
SG = X.XXXX rounded 
b) Round observed temperature to nearest 0.1 
T = XXX.X rounded 


Step 2: Calculate difference in observed temperature and 
base temperature 
BASE TEMPERATURE = 60.0 
DELTA = XXX.X - 60.0 = XXX.X 
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Step 3: Compute hydrometer correction term (optional) 
HYC = 1.0 - .00001278*DELTA — .0000000062*DELTA2 
TERML = .00001278*DELTA = .Q0OXXXXXXX rounded 
TERM2 = .0000000062*DELTA2 = .O0OOXXXXXX rounded 
HYC = 1.000000000 - .OOXXXXXXX - .OOOXXXXXX = X.XXXXXXXXX 


Step 4: Convert relative density to density, Kg/m3 
RHO = SG * 999.012 
RHO = XXXX.XX rounded. 


Step 5A: Application of hydrometer correction 
RHOT = RHO*HYC = XXXX.XX rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = XXXX.XX 


Step 6: Calculate ooefficient of thermal expansion 

ALPHA = Ko/RHO602 + K1/RHO6O 
Kg = XXXX.-XXXX 
Kj = oXXXK 
TERM] = Kg/RHO60 = .XXXXXXXX truncated 
TERM2 = TERM1/RHO60 = .OOXXXXXXXX truncated 
TERM3 = Kj/RHO60 = .0OXXXXXXXX truncated 

ALPHA = TERM2 + TERM3 = .OOOXXXX rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA*DELTA - 0.8*ALPHA2*DELTA2) 
a) calculate exponent 
TERM] = ALPHA * DELTA = .XXXXXXXX truncated 
TERM2 = 0.8 * TERM] = .XXXXXXXX truncated 
TERM3 = TERM] * TERM2 = .XXXXXXXX rounded 
TERM4 = — TERM] — TERM3 = .XXXXXXXX 


b) calculate exponential 
VCF = EXP(TERM4) = X.XXXXXX rounded 
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(Must use at least the first seven terms of 
the power series expansion.) 


Step 8: Calculate 60 °F density 
RHO6O = RHOT/VCF = XXXX.XXX truncated 


Since the equation for p 60 cannot be solved explicitly, a successive 
approximation iterative scheme is used to obtain a solution. The initial 
estimate of PE is the value of the density at observed temperature t. 
This approximation is substituted into the right hand side of the equation 
to obtain a second value approximation. This process of substituting into 
the right hand side of the equation and estimating a new value from the 
other is repeated until two consecutive results are in agreement to the 
desired degree of accuracy. In subroutine TAB23A, a Sola solution is 
reached when the change in density is less than 0.05 Kg/m? in two 


successive passes. 


The 1980 integer FORTRAN code issued by API contain both an integer 
division and an integer multiplication algorithm. A description of each 


follows. 


INTEGER MULTIPLICATION PROCEDURE 
(For 32 Bit Arithmetic) 


DATA DEFINITION 

X,Y are integer numbers that are equal to or less than 2*109 (slightly 
less than 231), A larger value may cause overflow. In addition, the 
total number of digits in X and Y must not exceed 17, otherwise overflow 
will occur. Z is the product (x*y) scaled by 1078, i.e. 2 = (x*y) /108, 


Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically, at least 15 digits 
are needed to obtain 6 digit precision, 16 for 7 and 17 for 8. The 
largest value of X and Y that may be used are 2 000 000 000 and 

99 999 999. (Either values may be used for X and Y). 
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CALCULATION 
X¥/10000 = Ul 
10000 * UL = kl 
X-Kl = Vl 
Y/10000 = U2 
10000 * U2 = k2 
Y-K2 = V2 
(UL*V2) + (U2*V1) + (V1*v2/10000) = K3 
(K3 + 5000)/10000 + U1*U2 = 2 


Note: Z has been scaled by 10-8 and may have to be rescaled before use. 


TOTAL DIGITS INX AND Y 12 13 14 15 16 «17 
DIGITS IN PRODUCT, 2 3-4 4-5 5-6 6-7 7-8 8-9 


INTEGER DIVISION PROCEDURE 
(For 32 Bit Arithmetic) 


DATA DEFINITION 
X,Y are integer numbers such that X is equal to or less than 231 -1 ana 
Y is of order of magnitude 104 less than x. 


R is the quotient of X/Y scaled by 104, i.e. R= x/y * 104. 


Note: If it is desirable to cbtain maximum precision, X and Y may be scaled 
up prior to use of the procedure. Typically, the more digits that are 
carried in both X and Y, the more accurate digits on output. 


CALCULATION 
X/Y = Ul 
UL * Y= Rl 
X + Kl = Vi 
VISAY = U2 
Ul * 10000 +U2=R 
Note: R has been scaled by 104 and may need to be rescaled before use. 
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Examples for Checkout 


The following examples illustrate how the implementation procedure is 
actually used to determine the value of a relative density 60/60 °F for 
Generalized Crude Oils. ‘The examples carry the computations through each 
step of the procedure showing the results of each mathematical operation. 
The computed values are given to the required precision and it is indicated 
if a value has been rounded or truncated. The step-by-step calculations are 
shown for the first iteration then a table is presented which summarizes the 
intermediate values used to obtain a converged solution. 


These examples are to be used as test cases for subroutine TAB23A to verify 
the computer code has not been altered or incorrectly reproduced. The 


routine has been designed to execute on machines that use word size of 


32-bits or greater. Any new development of computer code that is designed 
to follow the standard implementation procedure mast insure that the values 
computed at each step in the procedure are identical to those given in the 
examples. 


EXAMPLE 1 
Step 1: Round input variables 
a) Round relative density to nearest .0005 
SG = .8760 rounded 
b) Round observed temperature to nearest 0.1 
T = 248.0 rounded 


Step 2: Calculate difference in cbserved temperature and base temperature 
BASE TEMPERATURE = 60.0 


Step 3: Compute hydrometer correction term 
HYC = 1.0 - .00001278 * DELTA ~ .0000000062 * DELTA2 
TERM] = .00001278 * DELTA = .002402640 rounded 
TERM2 = .0000000062 * DELTA2 = .000219133 rounded. 
HYC = 1.000000000 ~ .0024026*~. - .000219133 = .997378227 
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Step 4: Convert relative density to density 
RHO = SG * 999.012 
RHO = 875.13 rounded 


Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 872.84 rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 872.84 


Step 6: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO602 + K1/RHO60 
Kg = 341.0957 (as of May 1, 1980) 
Kj = 0.0 (as of May 1, 1980) 
TERM] = Ko/RHO60 
TERM] = .39078834 truncated 
TERM2 = TERM1/RHO60 
TERM2 = .0004477204 truncated 
TERM3 = Kj/RHO60 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0004477 rounded 


Step 7: Calculate volume oorrection factor 
VCF = EXP (-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 
a) Calculate exponent 
TERM] = ALPHA * DELTA = .08416760 truncated 


TERM2 = 0.8 * TERM] = .06733408 truncated 
TERM3 = TERML * TERM2 = .00566735 rounded 
TERM4 = -TERM] ~ TERM3 = —.08983495 


b) Calculate exponential 
VCF = EXP(TERM4) = .914082 rounded 
(must use the first seven terms of the power series 


expansion of e*) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = 954.881 truncated 
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TABLE 1 shows the results of each iteration. 


TABLE 1 
ITERATION RHO60(N) ALPHA VCF RHOG60(N+1) 
1 872.84 -0004477 -914082 954.881 
2 954.88 -0003741 -928404 940.151 
3 940.15 -0003859 -926112 942.477 
4 942.48 -0003840 -926481 942.102 
5 942.10 -0003843 -926423 942.161 
6 942.16 -0003843 -926423 942.161 
SG60 = 942.16/999.012 = 0.9431 
EXAMPLE 2 
Step 1: Round input variables 
a) Round relative density to nearest .0005 
SG = .6935 rounded 
b) Round observed temperature to nearest 0.1 
T= 52.5 rounded 
Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 60.0 
DELTA = 52.5 — 60.0 = -7.5 
Step 3: Compute hydrometer correction term 
HYC =1.0 - .00001278 * DELTA - .0000000062 * DELTA? 
TERM] = .00001278 * DELTA = —.000095850 rounded 
TERM2 = .0000000062 * DELTA“ = .000000349 rounded 
HYC = 1.000000000 + .000095850 - .000000349 = 1.000095501 
Step 4: Convert relative density to density 


RHO = SG * 999.012 
RHO = 692.81 rounded 
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Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 692.88 rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 692.88 


Step 6: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO60~ + K1/RHO6O 
Kg = 341.0957 (as of May 1, 1980) 
K, = 0.0 (as of May 1, 1980) 
TERM] = Kg/RHO60 
TERM] = .49228683 truncated 
TERM2 = TERM1L/RHO6O 
TERM2 = .0007104936 truncated 
TERM3 = K/RHO60 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0907105 rounded 


Step 7: Calculate volume correction factor 

VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 

a) Calculate expoent 
TERM] = ALPHA * DELTA = -.00532875 truncated 
TERM2 = 0.8 * TERM] = -.00426300 truncated 
TERM3 = TERM] * TERM2 = .00002272 rounded 
TERM4 = -TERM] - TERM3 = .00530603 

b) Calculate exponential 
VCF = EXP(TERM4) = 1.005320 rounded 
(must use the first seven terms of the power series 


expansion of e*) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/AVCF = 689.213 truncated 


Copyright por American Petroleum Institute 
Mon Feb 07 13:42:28 2005 


API MPMSx*1L1L.-1 VOL*X 80 MM 0732290 0526037 575 


SECTION 1—VOLUME CORRECTION FacTORS 


TABLE 2 shows the results of each iteration. 


TABLE 2 
ITERATION RHO60 (N) ALPHA VCF RHO6O(N+1) 
692.88 -0007105 1.005320 689.213 
689.21 -0007181 1.005377 689.174 


EXAMPLE 3 


Step 1: 


Step 2: 


Step 3: 


Step 4: 


SG60 = 689.17/999.012 = 0.6899 


Round input variables 

a) Round relative density to nearest .0005 
SG = .6445 rounded 

b) Round observed temperature to nearest 0.1 
T = 184.0 rounded 


Calculate difference in observed temperature and base 
temperature 

BASE TEMPERATURE = 60.0 

DELTA = 184.0 — 60.0 = 124.0 


Compute hydrometer correction term 


HYC = 1.0 - .00001278 * DELTA - .0000000062 * DELTA2 
TERML = .00001278 * DELTA = .001584720 rounded 

TERM2 = .0000000062 * DELTA? = .000095331 rounded 

HYC = 1.000000000 — .001584720 - .000095331 = .998319949 


Convert relative density to density 
RHO = SG * 999.012 
RHO = 643.86 rounded 


Step 5A: Application of hdyrometer correction 


RHOT = RHO * HYC = 642.78 rounded 
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Step 5B: Initialize 60 °F density 
RHO6O = RHOT = 642.78 


Step 6: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO602 + Kj/RHO6O 
Kg = 341.0957 (as of May 1, 1980) 
K, = 0.0 (as of May 1, 1980) 
TERMI = Kg/RHO60 
TERM] = .53053398 truncated 
TERM2 = TERM1/RHO60 
TERM2 = .0008255654 truncated 
TERM3 = K1/RHO60 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0008256 rounded 


Step 7: Calculate volume correction factor 

VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA? * DELTA2) 

a) Calculate exponent 
TERM] = ALPHA * DELTA = .10237440 truncated 
TERM2 = 0.8 * TERM] = .08189952 truncated 
TERM3 = TERM] * TERM2 = .00838441 rounded 
TERM4 = —TERML — TERM3 = -.11075881 

b) Calculate exponential 
VCF = EXP(TERM4) = .895155 rounded 
(must use the first seven terms of the power series 


expansion of e*) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = 718.065 truncated 
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TABLE 3 shows the results of each iteration. 


ITERATION RHO60 (N) 


l 642.78 
2 718.07 
3 701.49 
4 704.63 
5 704.01 
6 704 .13 


SG60 = 704.11/999.012 = 0.7048 


EXAMPLE 4 


Section 1—VoLume CORRECTION FACTORS 


TABLE 3 


ALPHA 


-0008256 
-0006615 
-0006932 
-0006870 
-0006882 
-0006880 


Step 1: Round input variables 
a) Round relative density to nearest .0005 
SG = .6260 rounded 


b) Round observed temperature to nearest 0.1 


T= 127.5 rounded 


VCF 


-895155 


-916303 
912226 
-913024 
- 912869 
«912895 


RHO60(N+1) 


718.065 
701.492 
704.628 
704.012 
704.131 
704.111 


Step 2: Calculate difference in observed temperature and base 


temperature 


BASE TEMPERATURE = 60.0 
DELTA = 127.5 — 60.0 = 67.5 


Step 3: Compute hydrometer correction term 

1.0 — .00001278 * DELTA - .0000000062 * DELTA2 
-00001278 * DELTA = .000862650 rounded 
.0000000062 * DELTA2 = .000028249 rounded 
1.000000000 - .000862650 - .000028249 = .999109101 


HYC 
TERM1 
TERM2 
HYC 


Step 4: Convert relative density to density 


RHO = SG * 999.012 
RHO = 625.38 rounded 
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Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 624.82 rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 624.82 


Step 6: Calculate coefficient of thermal expansion 
ALPHA = Kg/RHO602 + K,/RHO60 


Ko = 341.0957 (as of May 1, 1980) 
K} = 0.0 (as of May 1, 1980) 
TERML = Ko/RHO60 


TERM] = .54591034 truncated 

TERM2 = TERM1/RHO60 

TERM2 = .0008737081 truncated 

TERM3 = Kj1/RHO60 

TERM3 = 0.0 

ALPHA = TERM2 + TERM3 = .0008737 rounded 


Step 7: Calculate volume correction factor 

VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA? * DELTA 

a) Calculate exponent 
TERML = ALPHA * DELTA = .05897475 truncated 
TERM2 = 0.8 * TERM] = .04717980 truncated 
TERM3 = TERM] * TERM2 = .00278242 rounded 
TERM4 = -TERM] - TERM3 = -.06175717 

b) Calculate exponential 
VCF = EXP(TERM4) = .940111 rounded 
(must use the first seven terms of the power series 


2) 


expansion of e*) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = 664.623 truncated 
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TABLE 4 shows the results of each iteration. 


TABLE 4 
ITERATION RHO60(N) ALPHA VCF RHO60(N+1) 
1 624.82 -0008737 -940111 664.623 
2 664.62 -0007722 947151 659 .683 
3 659 .68 -0007838 -946347 660.244 
4 660.24 -0007825 -946437 660.181 
5 660.18 -0007826 -946430 660.186 
SG60 = 660.19/999.012 = 0.6608 
EXAMPLE 5 
Step 1: Round input variables 


Step 2: 


Step 3: 


Step 4: 
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a) Round relative density to nearest .0005 
SG = .7795 rounded 

b) Round observed temperature to nearest 0.1 
T= 77.0 rounded 


Calculate difference in observed temperature and base 
temperature 

BASE TEMPERATURE = 60.0 

DELTA = 77.0 - 60.0 = 17.0 


Compute hydrometer correction term 


HYC = 1.0 — .00001278 * DELTA - .0000000062 * DELTA2 
TERM1 = .00001278 * DELTA = .000217260 rounded 

TERM2 = .0000000062 * DELTA2 = .000001792 rounded 

HYC = 1.000000000 — .000217260 — .000001792 = .999780948 


Convert relative density to density 
RHO = SG * 999.012 
RHO = 778.73 rounded 
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Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 778.56 rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 778.56 


Step 6A: Calculate oefficient of thermal expansion 
ALPHA = Kg/RHO602 + Kj/RHO60 
Ko = 341.0957 (as of May 1, 1980) 
0.0 (as of May 1, 1980) 
TERM] = Ko/RHO60 
TERM] = .43811099 truncated 
TERM2 = TERML/RHO60 
TERM2 = .0005627 truncated 
TERM3 = K)/RHO60 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0005627 rounded 


rey 
It 


Step 7: Calculate volume correction factor 

VCF = EXP(~ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 

a) Calculate exponent 
TERM] = ALPHA * DELTA = .00956590 truncated 
TERM2 = 0.8 * TERM] = .00765272 truncated 
TERM3 = TERM] * TERM2 = .00007321 rounded 
TERM4 = ~TERM] - TERM3 = —.00963911 

b) Calculate exponential 
VCF = EXP(TERM4) = .990407 rounded 
(must use the first seven terms of the power series 


expansion of e*) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = 786.101 truncated 
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TABLE 5 shows the results of each iteration. 


TABLE 5 
ITERATION RHO60(N) ALPHA VCF RHO60(N+1) 
1 778 .56 -0005627 -990407 786.10 
2 786.10 -0005520 -990590 785.955 
3 785.96 0005522 -990587 785 .958 


SG60 = 785.96/999.012 = 0.7867 


X-179 


11.1.23.4 TABLE 23B—GENERALIZED PRODUCTS, CORRECTION OF 
OBSERVED RELATIVE DENSITY TO RELATIVE DENSITY 60/60°F 


TABLE 23B gives the values of relative density 
60/60°F corresponding to hydrometer reading at ob- 
served temperatures other than 60°F. In converting the 
API hydrometer reading at the observed temperature 
to the corresponding relative density 60/60°F, two cor- 
rections are necessary: the first arises from the change 
in volume of the glass hydrometer with temperature 
(stem correction), and the second from the change in 
volume of the products with temperature. Both have 
been applied in this table. The values of relative den- 
sity 60/60°F in this table are the result of a computer 
procedure which is the Standard (see 11.1.23.5 and 
11.1.23.6). 


The temperature ranges of this table are: 
Relative Density 60/60°F °F 


0.8250 to 1.0760 0 to 300 
0.7795 to 0.8250 0 to 250 
0.6535 to 0.7795 0 to 200 


The values of relative density 60/60°F given in this 
table are based on data from the U.S. National Bureau 
of Standards and from other published data. Portions of 
the density and temperature ranges represent areas be- 
yond these data. Thus, mathematical techniques were 
employed to extrapolate beyond the density and tem- 
perature ranges of the given data to determine the value 
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of relative density 60/60°F for these areas. These values 
are denoted by an asterisk (*). Extension of this table 
beyond the ranges shown is not recommended. 

Increments used in this table for determining relative 
density 60/60°F are 0.5°F and 0.0020 relative density. 
Interpolation with temperature is not intended since 
there is no practical method of interpolation that will 
produce the accuracy obtainable from the Standard. 
However, interpolation with relative density to one ad- 
ditional significant digit can be reasonably made. Inter- 
polation is not required if the TABLE 23B results are 
to be used as entries to TABLE 24B. 


This table must be entered with a hydrometer 
reading measured with a soft glass hydrometer 
calibrated at 60°F and an observed temperature. 


A correction to the glass hydrometer reading 
has been incorporated into the table to account 
for the thermal expansion of glass. The hydrom- 
eter constant, as defined in the Report on the De- 
velopment, Construction, Calculation, and Prep- 
aration of the ASTM-IP Petroleum Measurement 
Tables (1960), varies with temperature according 
to the following: 

HYC = 1 — 0.00001278 (¢ — 60°F) 
— 0.0000000062 (¢ — 60°F)” 
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11.1.23.5 PROGRAM DOCUMENTATION FOR SUBROUTINE 
TAB23B—GENERALIZED PRODUCTS, CORRECTION OF 
OBSERVED RELATIVE DENSITY TO RELATIVE DENSITY 60/60°F 


Subroutine Title: 


Description: 


Program Responsibility: 


Date Issued: 


Language: 


Reference: 


ABSTRACT 


TAB23B - TABLE 23B, Generalized Products, 
Relative Density Correction to 60/60 °F. 


This subroutine is designed to calculate the 
relative density 60/60 °F corresponding to 
relative densities observed at temperatures other 
than 60 °F. 


American Petroleum Institute 
Measurement Coordination 


2101 L Street N.W. 
Washington, D.C. 20037 


August 1980 


FORTRAN, ANSI/ASA Standard 


API Standard 2540, TABLE 24, 11.1.24 


THIS SUBROUTINE WAS DEVELOPED USING THE MATHEMATICAL ALGORITHMS 
AND SPECIFICATIONS DESCRIBED IN THE DOCUMENT PROCEDURE 11.1.23.6. 
ANY MODIFICATION TO THIS SUBROUTINE MUST RIGIDLY ADHERE TO THE SAME 
ALGORITHMS AND SPECIFICATIONS. 


11.1.23.5.1 Introduction 


TAB23B is a computer subroutine designed to calculate for substances 
characterized as generalized products the value of relative density 60/60 °F 
corresponding to relative densities observed at temperatures other than 60 °F. 


The subroutine accepts as input the cbserved relative density rounded to the 
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nearest 0.0005 and the temperature rounded to the nearest 0.1 °F. If either 
input value has not been properly rounded, the subroutine will round the 
values and return the corrected values. The subroutine returns the value of 
relative density 60/60 °F rounded to the nearest 0.0001 and a status flag for 
user convenience. The flag is set to -1 if an error condition occurs and to 
+1 if the value of the relative density 60/60 °F is an extrapolation. ‘The 
limits of the correlation including the extrapolated region are depicted in 
Figure X-10. The calling program must check the flag and provide the user with 
appropriate warning message or program termination. The flag is set to zero 
when the input variables and the relative density 60/60 °F are within the 
limits of the correlation. 


11.1.23.5.2 Subroutine Specifications 


The range of application is: 


Relative Density Temperature, °F 
0.6535 — 0.7795 0 - 200 
0.7800 - 0.8250 0 - 250 
0.8255 - 1.0760 0 - 300 


Referenced modules: ALF23B, DIV23B, MPY23B, VCF23B 


Fortran functions: FLOAT, IABS 


Average execution time: 560 entries/CPU second 
IBM 370/168 


The subroutines are written in ANSI/ASA FORTRAN using integer arithmetic. 
The size and storage requirements are: 


1. Compilable source statements 169 
2. Decimal storage bytes 4104 
3. Words 1026 
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11.1.23.5.3 Calling Sequence 
CALL TAB23B (SG, DEGF, IHYDRO, SG60, IFLAG) 
INPUT DESCRIPTION 


SG - Relative density at cbserved temperature 
(SG returned will be rounded to nearest 0.0005) 


DECGF - Observed temperature, °F 
(DEGF returned will be rounded to nearest 0.1 °F) 


IHYDRO - Hydrometer switch 
0: The relative density was observed with a glass hydro- 
meter and a hydrometer correction is needed 
1: The relative density was determined from an o-line 
densitometer and a hydrometer correction is not 


needed. 
OUTPUT DESCRIPTION 
SG60 - Corresponding relative density 60/60 °F rounded to nearest 0.0001 


IFLAG —- Status Code 
0: Indicates input variables and calculated results are 
within the range of application 
1: Indicates input variables are in extrapolated region 
-1: Indicates input variables or calculated results are 
outside the range of application 


NOTE: If a non-convergence occurs, the subroutine prints the following 


message: 


AT XXX.X DEGREES F AND X.XXXX RELATIVE DENSITY, A OORRESPONDING 
RELATIVE DENSITY 60/60 °F COULD NOT BE DETERMINED. 
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This message should not occur unless the code has been altered or 
incorrectly reproduced. Follow Section 11.1.23.6, Implementation 
Procedure, and test the subroutine exactly as described. The 
status flag will be set to -1, SG60 to -9.9999, and program control 
returned to the calling routine. 


11.1.23.5.4 Method of Calculation 


This subroutine uses a convergence technique to determine the relative 

density 60/60 °F that corresponds to a relative density observed at some 
temperature other than 60 °F. Since the equations are expressed in terms 
of density, the relative density is converted to density by the following 


relationship: 
ee relative density * 999.012 
where 
es density at temperature t 
° 3 
999.012 = density of water at 60 F, Kg/m 


The coefficient of thermal expansion at the base temperature of 60 °F is 


related to density at the base temperature by 


K K 
Q = VO + en 
60 2 p 
Peo 60 


The values of p, and a, are used in the volume correction factor equation 


60 


to compute 


eS as a 
VCF EXP 60 


At( + 0.80 at)] 
P69 60 


Thus P, = Peg EXP [-agoAt + 0.8a,9At)| 
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where Peg = density at the base temperature 


At t - 60.0 


Since the equation for p 69 Cannot be solved explicitly, a successive 
approximation iterative scheme is used to obtain a solution. The initial 
estimate of p 60 is the value of the density at observed temperature t. 
This approximation is substituted into the right hand side of the equation 
to obtain a second value approximation. This process of substituting into 
the right hand side of the equation and estimating a new value from the 
other is repeated until two consecutive results are in agreement to the 
desired degree of accuracy. In subroutine TAB23B, a converged solution is 
reached when the change in density is less than 0.05 Kg/m> in two 
successive passes. If the computed value of relative density 60/60 °F is 
not on the same curve as the observed relative density, the parameters Kp 
and kK; used to determine the qmefficient of thermal expansion must be 
redefined and the convergence technique repeated. A straight line 
interpolation is used to connect the jet fuel curve with the gasoline curve 
when the solution is between 0.7710 and 0.7885. When this occurs, the 
coefficient of thermal expansion is defined as: 


_ 2 
tq =A+B AE 
where A = -.00186840 (as of May 1, 1980) 
B = 1489.0670 (as of May 1, 1980) 
In this case, the tolerance is increased to 0.07 Kg/m? . 


A full explanation of the equations and the values of the parameters 
Kg and kK, may be found in API Standard 2540, TABLE 24, 11.1.24. 


11.1.23.5.5 Examples : 


These examples are tutorial in nature and are not intended to be suffi- 
cient for subroutine checkout. The examples given in the Implementation 
Procedure, Section 11.1.23.6, are to be used for the computer checkout. 
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Example 1 
SG = 0.7012 (observed with a glass hydrometer) 
DEGF = 120.0 
THYDRO = 0 


CALL TAB23B (SG,DEGF,IHYDRO ,SG60 , IFLAG) 


After the call: SG = 0.7010 
DEGF = 120.0 
IHYDRO = 0 
SG60 = 0.7313 
IFLAG = 0 
Example 2 
SG = 0.7950 (observed with a glass hydrometer) 
DEGF = 210.04 
IHYDRO = 0 


CALL TAB23B (SG,DEGF, IHYDRO,SG60 ,; IFLAG) 


After the call: SG = 0.7950 
DEGF = 210.0 
IHYDRO = 0 
SG60 = 0.8533 
IFLAG = 1 
Example 3 

SG = 0.8230 (observed with a glass hydrometer) 

DEGF = 252.5 

THYDRO = 0 


CALL TAB23B (SG,DEGF,ITHYDRO ,SG60 , IFLAG) 


After the call: API = 0.8230 
DEGF = 252.5 
THYDRO = 0 
SG60 = -9.9999 
IFLAG = -l 
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11.1.23.5.6 FLONCHART 
INPUT: RELATIVE DENSITY 
OBSERVED TEMPERATURE 
ROUND INPUT DATA 
TO SPECIFICATIONS 


SET STATUS FLAG = -1 


DATA WITHIN NO AND REL. DEN. 


BOUNDS OF 
CORRELATION 


60/60°F = -3.9999 
RETURN 


YES 


CALCULATE DELTA T 


CONVERT RELATIVE DENSITY TO DENSITY 


NEED 
HYOROMETER 
CORRECTION 


COMPUTE HYDROMETER CORRECTION 


APPLY HYDROMETER CORRECTION TO DENSITY 


SELECT APPROPRIATE KO AND K1 CONSTANTS 


INITIALIZE 60°F DENSITY 
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CALCULATE ALPHA 
CALCULATE VCF 


CALCULATE NEN 60°F DENSITY 


CHECK FOR 
ONVERGENC! 


YES 


SET STATUS FLAG = -1 


60°F DENSIT 


WITHIN LIMITS ale Gaye ea aags 
OF CORRELATIO RETURN 

YES 
USED CORRECT ss 


KO AND Ki 
CONSTANTS 


YES 


60°F DENSITY 
ON STRAIGHT 
LINE SEGMENT 


REPEAT CONVERGENCE SCHEME 
WITH RE-DEFINED ALPHA 


CALCULATE RELATIVE DENSITY 60/60"°F 


REL.DEN. IN 
EXTRAPOLATED 
REGION 


NO 


SET STATUS FLAG = 0 
RETURN 
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RETURN 
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11.1.23.5.7 Subroutine Listing 
TAB23B This subroutine accepts relative density and the observation 
temperature and determines the corresponding relative density 
60/60 °F for Generalized Products. 


Referenced Modules 


ALF23B This module calculates the coefficient of thermal expansion 
needed to determine a volume oorrection factor. 


DIV23B This module is designed to produce additional accuracy from an 


integer divide. 


MPY23B This module is designed to produce additional accuracy from an 


integer multiplication. 


VCF23B This module calculates a volume correction factor. 


SUBROUTINE TAB23B(SG,DEGF , IHYDRO, SG60, IFLAG) 


(C) COPYRIGHT 1980 
AMERICAN PETROLEUM INSTITUTE 
ALL RIGHTS RESERVED 


THIS SUBROUTINE IS A VOLUNTARY STANDARD AND WAS DEVELOPED 
UNDER THE AUSPICES OF THE JOINT API-ASTM COMMITTEE ON STATIC 
PETROLEUM MEASUREMENT IN PART FROM DATA GENERATED BY A 
PROJECT FUNDED BY THE AMERICAN PETROLEUM INSTITUTE AT THE 
U.S. NATIONAL BUREAU OF STANDARDS, GAITHERSBURG, MARYLAND. 


INQUIRIES CONCERNING ITS APPLICATION SHOULD BE ADDRESSED To: 


AMERICAN PETROLEUM INSTITUTE 
MEASUREMENT COORDINATION 
2101 L STREET, N.W. 
WASHINGTON, DG 29037 


NQANDAAANAANANDNAGDAADQONN0DO 
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23B00010 
23B00020 
23B00030 
23B00040 
23B00050 
23B00060 
23B00070 
23B00080 
23B00090 
23B00100 
23B00110 
23B00120 
23B00130 
23B00140 
23B00150 
23B00160 
23B00170 
23B00180 
23B00190 
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G ake ok ye de ake eae oe Ae oe oe oe ok fe ae ok oe oe Ne ake Ne ok ae oe oe fe ne He oe oe ae oe oe de Xe ote ee hee dle ake ae eae de ie He ie ie ate fe ae ae ae ale oie oe oe he oe ae ok 23800200 
Cc * 23B00210 
Cc * THIS SUBROUTINE OR THE MATHEMATICAL RELATIONSHIPS * 23B00220 
Cc * REPRESENTED THEREBY MAY BE USED BY ANYONE WISHING * 23B00230 
Cc = TO DO SO, BUT THE AMERICAN PETROLEUM INSTITUTE, THE * 23800240 
CG ee AMERICAN SOCIETY FOR TESTING AND MATERIALS, AND THE * 23B00250 
Cc i INSTITUTE OF PETROLEUM AND THEIR RESPECTIVE MEMBERS AND * 23B00260 
Cc . THE U.S. NATIONAL BUREAU OF STANDARDS, SHALL NOT BE HELD * 23B00270 
C * RESPONSIBLE OR LIABLE IN ANY WAY FROM LOSS OR DAMAGE, * 23B00280 
Cc 7 INCLUDING, BUT NOT LIMITED TO, CONSEQUENTIAL DAMAGE , * 23B00290 
Cc * RESULTING FROM SUCH USAGE OR FOR VIOLATION OF ANY FEDERAL, * 23B00300 
Cc i STATE, OR MUNICIPAL LAWS, REQULATIONS OR PRACTICES OF THE * 23B00310 
Cc * UNITED STATES OR OF ANY FOREIGN COUNTRY. * 23B00320 
C = * 23B00330 
Cc Bie se ae oe oe oie oe ae He ate oe ole ae oe ok Me Se OK oie He ole He of de ote ake ake ake ole ake oe ake ake ale ae fe oe oie ae oe de oe te ae aie ke fe ae ke ake oe ae ke ae ake ae ie ae ae ae ok ok oe eo 23B00340 
Cc 23B00350 
CG PURPOSE 23B00360 
CG 23B00370 
Cc THIS SUBROUTINE IS DESIGNED TO ACCEPT AS INPUT A RELATIVE 23B00380 
Cc DENSITY (SG) AT SOME TEMPERATURE (DEGF) IN DEGREES 23B00390 
Cc FAHRENHEIT AND CALCULATE THE CORRESPONDING RELATIVE DENSITY 23B00400 
Cc (SG60) AT 60 DEGREES FAHRENHEIT FOR TABLE 23B, GENERALIZED 23B00410 
Cc PRODUCTS. 23B00420 
Cc THE USE OF A GLASS HYDROMETER CORRECTION IS OPTIONAL. 23B00430 
Cc 23B00440 
Cc EXTERNAL FUNCTIONS OR SUBPROGRAMS 23B00450 
Cc 23B00460 
CG ALF23B, DIV23B, MPY23B, VCF23B 23B00470 
CG FORTRAN FUNCTIONS: FLOAT, IABS 23B00480 
Cc 23B00490 
Cc DESCRIPTION OF PARAMETERS 23B00500 
Cc 23B00510 
Cc SG - RELATIVE DENSITY AT OBSERVED TEMPERATURE, NEAREST CIN) 23B00520 
Cc .0005 (PROGRAM WILL ROUND SG TO THE NEAREST 23B00530 
CG .0005 AND RETURN THE ROUNDED VALUE. ) 23B00540 
Cc DEGF - OBSERVED TEMPERATURE, NEAREST 0.1 DEGREE F (IN) 23B00550 
C (PROGRAM WILL ROUND T TO THE NEAREST 0.1 23B00560 
C DEG F AND RETURN THE ROUNDED VALUE. ) 23B00570 
Cc IHYDRO - APPLICATION OF GLASS HYDROMETER CORRECTION CIN) 23B00580 
Cc 0 - HYDROMETER CORRECTION IS TO BE MADE 23B00590 
Cc 1 - HYDROMETER CORRECTION IS NOT TO BE MADE 23B00600 
Cc SG60 - CORRESPONDING RELATIVE DENSITY 60/60 DEGREES F (OUT) 23800610 
Cc (ROUNDED TO THE NEAREST .0001) 23B00620 
Cc IFLAG - STATUS CODE (OUT) 23B00630 
Cc 0 - INPUT AND CALCULATED RESULTS IN CORRELATION LIMITS 23B00640 
Cc 1 - INPUT OR CALCULATED RESULTS IN EXTRAPOLATED REGION 23B00650 
CG -1 - INPUT OR CALCULATED RESULTS NOT WITHIN LIMITS OF 23B00660 
Cc CORRELATION 23B00670 
Cc BASE TEMPERATURE (60 DEGREES F) 23B00680 

DATA IBASE / 600 / 23B00690 
CG 23B00700 
Cc BREAK POINTS FOR REL DEN RANGES ( .7790 AND .8245 ) 23B00710 

DATA IBP1, IBP2 / 7790, 8245 / 23B00720 
Cc 23B00730 
Cc MAXIMUM TEMPERATURES AT EACH BREAK POINT (200,250,300) 23B00740 

DATA ITMP1, ITMP2, ITMP3 / 2000, 2500, 3000 / 23B00750 
Cc 23B00760 
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X-190 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
10 
Cc 
Cc 
40 
Cc 
50 
Cc 
60 
Cc 
70 
Cc 
80 
Cc 
90 
100 
c 
Cc 
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API MPMS*11-1 VOL*X 60 MM 0732290 O52b054 Té4 


CuHapTer 11—PuysicaL PRoPerties Data 


BEGINNING OF TEMPERATURE EXTRAPOLATIONS (150,200,250) 
DATA IEP1, IEP2, IEP3 / 1500, 2000, 2500 / 


COEFFICIENTS FOR DIESELS, HEATING OILS, AND FUEL OILS 
DATA KOF, K1F / 1038720, 2701 / 
DATA NLOF / 8400 / 


COEFFICIENTS FOR JET FUELS, KEROSENES, AND SOLVENTS 
DATA KOJ, KiJd / 3303010, 0 / 
DATA NLOJ, NHIJ / 7795, 8395 / 


COEFFICIENTS FOR GASOLINES AND NAPTHENES 
DATA KOG, KiG / 1924571, 2438 / 
DATA NHIG / 7790 / 


UPPER AND LOWER DENSITY LIMITS (0, 85 APTI) 
DATA LIM1, LIM2 /1074982, 652934 / 


STRAIGHT LINE INTERPOLATION: ALPHA=A+B/ (RHO**2) 
FOR REL DEN .7710 - .7885 
DATA INT1, INT2 / 7710, 7885 / 
DATA IA, IB / -186840, 14890670 / 


DENSITY OF WATER 
DATA IH20 / 999012 / 


UNIT 6 IS THE OUTPUT UNIT. IF THE OUTPUT IS TO BE DIRECTED 
TO SOME OTHER UNIT, SET NOUT TO APPROPRIATE VALUE. 
NOUT = 6 


ROUND SG TO NEAREST .0005 
ISG = ( (SG * 100000) + 25 ) / 50 
IsG = ISG * §& 
SG = FLOAT( ISG ) / 10000. 

CHECK FOR TEMPERATURE LESS THAN ZERO 
IF ¢( DEGF ) 1200, 10, 10 

ROUND TEMPERATURE TO NEAREST 0.1 DEG F 
IT = ( (DEGF * 100) + §& ) ¢ 10 
DEGF = FLOAT( IT ) / 10. 


IS SG LESS THAN .6535 (IF YES, BRANCH TO 1200) 
IF ¢( ISG - 6535 ) 1200, 40, 40 

IS SG GREATER THAN 1.0760 (IF YES, BRANCH TO 1200) 
IF ( ISG - 10760 ) 50, 50, 1200 

IS SG GREATER THAN .7790 (IF YES, BRANCH TO 70) 
IF ( ISG - IBP1 ) 60, 60, 70 

IS TEMP GREATER THAN 200 (IF YES, BRANCH TO 1200) 
IF ¢( IT - ITMP1 ) 100, 100, 1200 

IS SG GREATER THAN . 8245 (IF YES, BRANCH TO 90) 
IF ( ISG - IBP2 ) 80, 80, 90 

IS TEMP GREATER THAN 250 (IF YES, BRANCH TO 1200) 
IF ¢( IT - ITMP2 ) 100, 100, 1200 

IS TEMP GREATER THAN 300 (IF YES, BRANCH TO 1200) 
IF ( IT - ITMP3 ) 100, 100, 1200 
CONTINUE 
IFLAG = 0 


IDT = IT - IBASE 
COMPUTE DENSITY (RHO = REL DEN * DENSITY OF WATER) 


23B00770 
23B00780 
23B00790 
23B00800 
23B00810 
23B00820 
23B00830 
23B00840 
23B00850 
23B00860 
23B00870 
23B00880 
23B00890 
23B00900 
23B00910 
23B00920 
23B00930 
23B00940 
23B00950 
23B00960 
23B00970 
23B00980 
23B00990 
23B01000 
23B01010 
23B01020 
23B01030 
23B01040 
23B01050 
23B01060 


23B01070 
23B01080 
23B01090 
23B01100 
23B01110 
23B01120 
23B01130 
23B01140 
23B01150 
23B01160 
23B01170 
23B01180 
23B01190 
23B01200 
23B01210 
23B01220 
23B01230 
23B01240 
23B01250 
23B01260 
23B01270 
23B01280 
23B01290 
23B01300 
23B01310 
23B01320 
23801330 
23B01340 


aan 


101 


105 
110 


120 
125 


130 


150 


160 


300 


API MPMS*11-1 VOL*X 60 MM O732290 0526055 910 


SECTION 1—VOLUME CORRECTION FACTORS 


CALL MPY23B(1ISG, IH20, IRHOT,10) 
IRHOT = ( IRHOT + 500 ) / 1000 


IS HYDROMETER CORRECTION TO BE USED 
IF ( IHYDRO ) 101, 101, 112 


(NO, BRANCH TO 112) 


COMPUTE HYDROMETER CONSTANT AT DELTA T 

HYC = 1. - .00001278*(DEGF-60) - .0000000062*(DEGF-60)**2 
IRD = 50 
IF (IDT) 105, 
IRD = -50 
TH1 (127800 * IDT + IRD) / 100 
IH2 = (62 * IDT * IDT + 500) / 1000 
IHYC = 1000000000 - IH1 - IH2 


110, 110 


APPLY HYDROMETER CORRECTION TO DENSITY 
IRHO = IRHOT * 10 
CALL MPY23B( IRHO, IHYC, IRHOT, 10000) 
IRHOT = ( IRHOT + 50 ) / 100 


ICOUNT = 0 
IS SG IN GASOLINE RANGE (.6535-.7790) 
IF ( ISG - NHIG ) 115, 115, 120 
KO = KOG 
K1 = K1G 
IREG = 0 


(IF NO, BRANCH TO 120) 


GO TO 150 

IS SG IN JET RANGE (.7795-.8395) (IF NO, BRANCH TO 130) 
IF ( ISG - NHTJ ) 125, 125, 130 
KO = KOJ 
K1 = KiJ 
IREG = 1 = 
GO TO 150 

SG IS IN DIESEL REGION (.8400-1.0760) 
KO = KOF 
K1 = K1F 
IREG = 2 


ICOUNT = ICOUNT + 1 


IF (ICOUNT - 2) 160, 160, 400 


JRHOT = IRHOT * 10000 


IRHO60 = IRHOT 
KRHO = 0 

NP = 0 

NP = NP + 1 


ALF23B(IRHO60,KO,K1,IALF) 


VCF23B(IALF,IDT, IVCF) 
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X-191 


23B01350 
23B01360 
23B01370 
23B01380 
23B01390 
23B01400 
23B01410 
23B01420 
23B01430 
23B01440 
23B01450 
23B01460 
23B01470 
23B01480 
23B01490 
23B01500 
23B01510 
23B01520 
23B01530 
23B01540 
23B01550 
23B01560 
23B01570 
23B01580 
23B01590 
23B01600 


23B01610 
23B01620 
23B01630 
23B01640 
23B01650 
23B01660 
23B01670 
23B01680 
23B01690 
23B01700 
23B01710 
23B01720 
23B01730 
23B01740 
23B01750 
23B01760 
23B01770 
23B01780 
23B01790 
23B01800 
23B01810 
23801820 
23B01830 
23B01 840 
23B01850 
23B01860 
23B01870 
23B01880 
23B01890 
23B01900 
23B01910 


API MPMS*11-1 VOL*X 80 MM 0732290 O52eb056 657 


X-192 CHAPTER 11—PuysicaL PROPERTies DATA 

IVCF = ( IVCF + 50 ) / 100 23801920 

Cc 23B01930 
CALL DIV23B(JRHOT , IVCF , IRHO60 , 1000) 23B01940 

Cc 23B01950 
IF (¢ IABS (IRHO60 - KRHO ) - 50 ) 500, 320, 320 23B01960 

Cc 23B01970 
320 KRHO = IRHO60 23B01980 

Cc 23B01990 
IRHO60 = ( IRHO60 + 5 ) / 10 23B02000 

Cc 23B02010 
IF ( NP - 20 ) 300, 1150, 1150 23B02020 

Cc 23B02030 
G STRAIGHT LINE INTERPOLATION IS USED TO CONNECT THE JET FUEL 23B02040 
GC AND GASOLINE LINES (.7710-.7885). ONLY THE DEFINITION 23B02050 
Cc OF ALPHA IS CHANGED. ALPHA = A + B / (RHO60**2) 23B02060 
Gc 23B02070 
400 KRHO = 0 23B02080 
NP = 0 23B02090 
ICOUNT = 3 23B02100 

c 23B02110 
Cc FIRST GUESS IS 778.84 KG/CU METRE 23B02120 
IRHO60 = 77884 23B02130 

JRHOT = IRHOT * 10000 23802140 

440 NP = NP + 1 23B02150 
CALL DIV23B(1IB, IRHO6O, IRES,10000) 23B02160 

IRES = IRES * 10 23B02170 

CALL DIV23B(IRES, IRHO60, IRES2 , 10000) 23B02180 

IRES2 = (IRES2 + 5) / 10 23B02190 

IALF = (IA + IRES2 + 5) / 10 23B02200 

CALL VCF23B(IALF,IDT,IVCF) 23B02210 

IVCF = (IVCF + 50) / 100 23B02220 

CALL DIV23B(JRHOT , IVCF , IRHO60 , 1000) 23B02230 

c 23B02240 
IF ( IABS(IRHO60 - KRHO) - 70 ) 500, 460, 460 23B02250 

Cc 23B02260 
460 KSAV = KRHO 23B02270 
KRHO = IRHO60 23B02280 
IRHO60 = ( IRHO60 + 5 ) / 10 23B02290 

IF ¢( NP - 40 ) 440, 480, 480 23B02300 

Cc 23B02310 
CG RESTRICTING DENSITY (IRHO60) TO THREE DECIMAL PLACES MAY 23B02320 
Cc CAUSE THE CONVERGENCE TECHNIQUE TO REACH A STATIONARY 23B02330 
Cc POINT BEFORE TOLERANCE REACHED. THE AVERAGE OF THE UPPER 23B02340 
CG AND LOWER BOUNDARIES IS A SATISFACTORY SOLUTION. 23802350 
CG 23B02360 
Cc AVERAGE LAST TWO PASSES 23B02370 
Cc 23B02380 
480 IRHO60 = ( KRHO + KSAV ) / 2 23B02390 
Cc 23B02400 
Cc IS RHO60 GREATER THAN UPPER LIMIT (IF YES, BRANCH TO 1200) 23802410 
500 IF ( IRHO60 - LIMi ) 510, 510, 1200 23B02420 

Cc IS RHO60 LESS THAN LOWER LIMIT (IF YES, BRANCH TO 1200) 23B02430 
510 IF ( IRHO60 - LIM2 ) 1200, 520, 520 23B02440 

Cc 23B02450 
520 JRHOT = IRHO6O * 1000 23B02460 

Cc 23B02470 
Cc COMPUTE RELATIVE DENSITY 60/60 F 23B02480 
CALL DIV23B(JRHOT , IH20, ISG60 , 1000) 23B02490 
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600 


610 


690 


830 


API MPMS*11-1 VOL*X 60 MM O732290 0526057? 7935 


SET SWITCH INDICATING OUTSIDE RANGE OF TABLE 23B 


1200 IFLAG = -1 


SG60 = -9.9999 
RETURN 
END 


SUBROUTINE DIV23B( INUM, IDENOM, IRES, ISCALE ) 


THIS SUBROUTINE IS DESIGNED TO PRODUCE ADDITIONAL 
ACCURACY FROM AN INTEGER DIVIDE WHERE THE NUMERATOR 
IS ISCALE GREATER THAN THE DENOMINATOR. THE SUBROUTINE 
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SECTION 1—VOLUME CORRECTION FacTORS X-193 
ISG6O0 = ( ISG60 + 50 ) / 100 23B02500 
FLOATING VALUE ROUNDED TO NEAREST .0001 23B02510 
SG60 = FLOAT(ISG60) / 10000. 23B02520 
23B02530 
IF (ICOUNT - 3) 600, 720, 720 23B02540 
23B02550 
IF (ZREG - 1) 610, 620, 640 23B02560 
IS SG6OQ ABOVE GASOLINE REGION (IF YES, BRANCH TO 125) 23B02570 
IF ( ISG60 - NHIG ) 680, 680, 125 23B02580 
IS SG60 ABOVE JET REGION CIF YES, BRANCH TO 130) 23B02590 
IF ( ISG60 - NHIJ ) 630, 680, 130 23802600 
IS SG60 BELOW JET REGION (IF YES, BRANCH TO 115) 23B02610 
IF ¢€ ISG60 - NLOJ ) 115, 680, 680 23B02620 
IS SG60 BELOW DIESEL REGION (IF YES, BRANCH TO 125) 23B02630 
IF ( ISG6O0 - NLOF ) 125, 680, 680 23B02640 
23B02650 
CONTINUE 23B02660 
23B02670 
IF ISG60 .GE. .7710 AND .LE. .7884, USE STRAIGHT LINE 23B02680 
IS SG60 .GE. .7710 (IF YES, BRANCH TO 690) 23B02690 
IF ( ISG60 - INT1 ) 720, 400, 690 23B02700 
IS SG6o .LE. .7885 (IF YES, BRANCH TO 1000) 23B02710 
IF ( ISG60 - INT2 ) 400, 400, 720 23B02720 
23B02730 
23B02740 
IS SG GREATER THAN .7790 (IF YES, BRANCH TO 790) 23B02750 
IF ( ISG - IBP1 ) 780, 780, 790 23B02760 
IS TEMP GREATER THAN 150 (IF YES, BRANCH TO 830) 23B02770 
IF ( IT - IEP1 ) 820, 820, 830 23B02780 
IS SG GREATER THAN . 8245 (IF YES, BRANCH TO 810) 23B02790 
IF ( ISG - IBP2 ) 800, 800, 810 23B02800 
IS TEMP GREATER THAN 200 (IF YES, BRANCH TO 830) 23B02810 
IF (¢ IT - IEP2 ) 820, 820, 830 23B02820 
IS TEMP GREATER THAN 250 (CIF YES, BRANCH TO 830) 23B02830 
IF ¢ IT - IEP3 ) 820, 820, 830 23B02840 
CONTINUE 23B02850 
RETURN 23B02860 
SET SWITCH INDICATING EXTRAPOLATED REGION 23B02870 
IFLAG = 1 23B02880 
RETURN 23B02890 
23B02900 
1150 WRITE(NOUT ,6020) DEGF, SG 23B02910 


6020 FORMAT(5H1 AT ,F6.1,15H DEGREES F AND ,F7.4,84H RELATIVE DENSITY, 23802920 
1A CORRESPONDING RELATIVE DENSITY 60/60 F COULD NOT BE DETERMINED. )23B02930 


23B02940 
23B02950 
23B02960 
23B02970 
23B02980 
23B02990 


23B03000 
23B03010 
23B03020 
23B03030 
23B03040 


API MPMS*1L1-1 VOL*X 80 MM O732290 0526058 beT 


X-194 CuHapTeR 11—PxysicaL PROPERTIES DATA 
Cc ASSUMES PROPER SCALING OF BOTH THE INPUT NUMERATOR 23B03050 
Cc AND DENOMINATOR AND WILL RETURN THE RESULTS MULTIPLIED 23B03060 
Cc BY ISCALE. 23B03070 
Cc 23B03080 
IRES1=INUM/ IDENOM 23B03090 
IRES2=( INUM- IRES1 * IDENOM) * ISCALE/ IDENOM 23B03100 
IRES=IRES1 * ISCALE+IRES2 23B03110 
RETURN 23B03120 
END 23803130 
SUBROUTINE ALF23B(IRHO,KO,K? , IALF) 23B03140 
Cc 23B03150 
Cc THIS SUBROUTINE IS DESIGNED TO CALCULATE ALPHA FOR 23B03160 
Cc USE IN DETERMINATION OF VOLUME CORRECTION 23B03170 
Cc FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE AS INTEGERS, 23B03180 
Cc THE SUBROUTINE RETURNS WITH A 8 DIGIT VALUE 23B03190 
Cc 23B03200 
Cc INPUT VARIABLES 23B03210 
Cc IRHO=DENSITY*100 (KILOGRAMS/CUBIC METRE) 23B03220 
Cc KO ,K1= COEFFICIENTS OF DESIRED CURVE * 10000 23B03230 
Cc 23B03240 
Cc ALGORITHM - 23B03250 
CG ALPHA=K0 /RHO* *2+K1 /RHO 23B03260 
Cc 23B03270 
Cc CALCULATE K1/RHO 23B03280 
Cc 23B03290 
INUM=K1* 10000 23B03300 
CALL DIV23B( INUM, IRHO, IALF1,10000) 23B03310 
Cc 23B03320 
Cc CALCULATE KO/RHO**2 23B03330 
Cc 23B03340 
INUM=K0*100 23B03350 
CALL DIV23BC INUM, IRHO, IALFS, 10000) 23B03360 
CALL DIV23B(ITALFS, IRHO, IALF2 ,10000) 23B03370 
IALF=(IALF1+IALF2+500 )/1000 23B03380 
RETURN 23B03390 
END 23B03400 
SUBROUTINE VCF23B(IALF,IDT,IVCF) 23B03410 
Cc 23B03420 
CG THIS SUBROUTINE IS DESIGNED TO CALCULATE VOLUME 23B03430 
Cc CORRECTION FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE 23B03440 
Cc AS INTEGERS, THE SUBROUTINE RETURNS WITH A 8 23B03450 
Cc OR 9 DIGIT VALUE DEPENDENT UPON WHETHER IDT 23B03460 
Cc IS POSITIVE OR NEGATIVE. 23B03470 
C 23B03480 
Cc ALGORITHM - 23B03490 
Cc VCF=EXP ( -ALPHA*DT(1.0+0.8*ALPHA*DT ) ) 23803500 
Cc 23B03510 
Cc CALCULATE ALPHA*DT 23B03520 
Cc 23B03530 
ITERM1=IALF*IDT 23B03540 
CG 23B03550 
Cc CALCULATE 0.8*ALPHA*DT 23B03560 
Cc 23B03570 
ITERM2=ITERM1 /5*40 23B03580 
Cc 23B03590 
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aaag 


current: C 


API MPMS*11.1 VOL*X 80 MM 0732290 0526059 Sbb 


SECTION 1—VOLUME CORRECTION FACTORS 


CALCULATE EXPONENT -ALPHA*DT(1 .0+0.8*ALPHA*DT ) 


CALL MPY238(ITERM1 , ITERM2, ITERMS , 1000) 
ITERM3 = ( ITERM3 + 500 ) / 1000 
IX= -ITERM1 - ITERM3 


CALCULATE EXPONENTIAL(FIRST 7 TERMS OF POWER SERIES) 


ISUM1=100000000+1X 

CALL MPY23B(IX,IX, ISUM2, 1000) 
ISUM2=(( ISUM2+50)/100) /2 

CALL MPY23B(IX, ISUM2, ISUM3 , 1000) 
ISUM3=(( ISUM3+50)/100)/3 

CALL MPY23B(IX, ISUM3, ISUM4 , 1000) 
ISUM4=((ISUM4+50)/100)/4 

CALL MPY23B(1X,ISUM4 , [SUMS , 1000) 
ISUM5=(( ISUM5+50)/100)/5 

CALL MPY23B( 1X, ISUM5 , ISUM6, 1000) 
ISUM6=( ( ISUM6+50 )/100)/6 
IVCF=ISUM1+1SUM2+ISUM3+I SUM4+ISUM5+ISUM6 
RETURN 

END 


SUBROUTINE MPY23B(1IX,IY,1IZ, ISCALE) 
THIS ROUTINE PERFORMS INTEGER MULTIPLICATION. 


WISE, OVERFLOW WILL OCCUR. 


IUi = IX / ISCALE 
Ki = ISCALE * IU1 
= IX - Ki 
Iu2 = IY / ISCALE 
K2 = ISCALE * IU2 
IY - 2 
K3 = Iut * Iv2 + Iu2 * Iv1 + Ivi * IV2 / ISCALE 
IZ = (K3 + ISCALE/2) / ISCALE + Iu1 * IU2 
RETURN 
END 


Hi 
< 
nN 
ll 


Errata 


Please make the following updates to this subroutine listing. For an explanation 


of the updates see 11.1.6. 


THE TOTAL 
NUMBER OF DIGITS IN IX AND IY MUST NOT EXCEED 17. OTHER 


BREAK PZINTS F@R REL DEN RANGES ( .7790 AND .8245 


updated: C BREAK P@INTS F@R REL DEN RANGES ( .7795 AND .8250 
current: DATA IBP1, IBP2 / 7790, 8245 / 

updated: DATA IBP1, iBP2 / 7795, 8250 / 

current: C 1S SG GREATER THAN .7790 (1F YES, BRANCH T@ 70) 
updated: C 1S SG GREATER THAN ./795 (IF YES, BRANCH T@ 70) 
current: C 15 SG GREATER THAN .8245 (IF YES, BRANCH T@ 90) 
updated: C 1S SG GREATER THAN .8250 (1F YES, BRANCH T@ 90) 
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X-195 


23B03600 
23B03610 
23B03620 
23B03630 
23B03640 
23B03650 
23B03660 
23B03670 
23B03680 
23B03690 
23B03700 
23B03710 
23B03720 
23B03730 
23B03740 
23B03750 
23B03760 
23B03770 
23B03780 
23B03790 
23B03800 
23B03810 


23B03820 
23B03830 
23B03840 
23B03850 
23B03860 
23B03870 
23B03880 
23B03890 
23B03900 
23B03910 
23B03920 
23B03930 
23B03940 
23B03950 
23B03960 


23800710 
23B00710 


23B00720 
23B00720 


23B01200 
23801200 


23B01240 
23B01240 


API MPMS*1L1]1-1 VOL*X 60 MB O732250 O5ebOLO 246 


X-196 CHAPTER 11—PHySICAL PROPERTIES DATA 


11.1.23.6 IMPLEMENTATION PROCEDURE FOR SUBROUTINE TAB23B 


The use of the computer has gained widespread acceptance throughout the 
petroleum industry. Computers are used for accounting purposes, in process 
simulation and modeling, data retrieval and evaluation, and are now being 
used extensively in custody transfer measurements and transactions. In 
1968, the American Petroleum Institute recognized the need for incorporating 
existing petroleum measurement tables into computer code. In June of 1973, 
a subroutine for TABLE 6, Volume Reduction to 60 °F, was made available. 
Since then many of the other standardized petroleum measurement tables have 
been made available as computer subroutines. 


However, the computerization of an existing table of numbers proved to be a 
very difficult task. For instance, it proved to be impossible to use the 
mathematical expression that was supposedly used to generate the table 
values and calculate values identical to the tabular entries. This was 
because some of the values entered into the tables had been slightly 
modified and also because the procedures used to round the calculated values 


were inconsistent. 


The only way to overcome these problems in a computer subroutine was to 
manually locate all the table entries that did not agree with the calculated 
values and add extensive "exception tables" to the code. This made the code 
lengthy and somewhat cumbersome to modify and to some extent restricted its 
use to larger computing systems. 


The working group for TABLE 6 revision realized the importance of elimi- 
nating any potential for such problems in the future and also recognized 
the need to have computer subroutines available at the time the new 
petroleum measurement tables were released. The working group decided to 
outline an explicit implementation procedure to be followed when using 
the new correlation for volume correction factors. This implementation 
procedure would then be the Standard rather than a set of equations or set 
of tables. Standardization of an implementation procedure implies 
standardization of the set of mathematical expressions used within the 


computer code. Absolute adherence to the outlined procedure will insure 
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API MPMS*11.1 VOL*X 80 MM 0732290 O52eb0b1 114 
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that all computers and computer code of the future, meeting the stated 
specifications and restrictions, will be able to produce identical 
results. Such a procedure allows for the maximum machine and code 
independence. 


The implementation procedure as described in the following text can by 
careful and deliberate application of numerical analysis be followed 
through the majority of language and word sizes in present and anticipated 
use. To follow the standard procedure means absolute and unwavering 
adherence to the number of digits specified at each step and to the 
calculational procedure as outlined. 


In the procedure, the nomenclature digits (XXX.XX) means mathematically 
significant digits as defined in ASTM E380-76. In the previous example, 
all five (5) digits in the parenthesis are mathematically significant. 


At various steps in the implementation procedure, calculated results are 
rounded or truncated. When rounding a result to fewer digits than the 
total number available, the following procedure which was used overrides 
that of ASTM E380-76: 


a) when the first digit to be discarded is less than 5, the last digit 
retained is not changed. 
b) when the first digit to be discarded is greater than 4, the last 


digit retained is increased by me unit. 


The procedure used in truncating a result to fewer digits than the total 
number available is to simply discard all digits following the last digit 
to be retained and leaving the last retained digit unchanged. 


Another specification is that the coefficients used to relate the thermal 
expansion coefficient at 60 °F to the 60 °F density base and all other 
constants needed in the correlation must be used to exactly the number of 
digits specified. 
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Step 1: 


Step 2: 


Step 3: 


Step 4: 


Step 5A: 


Step 5B: 


Step 6A: 
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Calculation Procedure 


Round input variables 

a) Round relative density to nearest 0.0005 
SG = X.XXXX rounded 

b) Round observed temperature to nearest 0.1 
T = XXX.X rounded 


Calculate difference in observed temperature and 
base temperature 

BASE TEMPERATURE = 60.0 

DELTA = XXX.X — 60.0 = XXX.X 


Compute hydrometer correction term (optional) 
HYC = 1.0 — .00001278*DELTA - .0000000062*DELTA2 
TERMI = .00001278*DELTA = .OOXXXXXXX rounded 
TERM2 = .0000000062*DELTA2 = .OOOXXXXXX rounded 
HYC = 1.000000000 -— .OOXXXXXXX -— .OOOXXXXXX = X.XXXXXXXXK 


Convert relative density to density, Kg/m3 
RHO = SG * 999.012 
RHO = XXXX.XX rounded 


Application of hydrometer correction 
RHOT = RHO*HYC = XXXX.XX rounded 


Initialize 60 °F density 
RHO60 = RHOT = XXXXK.XX 


Calculate coefficient of thermal expansion 
ALPHA = Kg/RHO602 + K1/RHO60 
Ko = XXXX.XXXX 
K) = oXXXX 
TERM] = Ko/RHO60 = .XXXXXXXX truncated 
TERM2 = TERML/RHO60 = .OOXXXXXXXX truncated 
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TERM3 
ALPHA 


Kj/RHO60 = .OOXXXXXXXX truncated 
TERM2 + TERM3 = .OOOXXXX rounded 


Step 6B: Calculation of ALPHA for straight line segment 
ALPHA = A + B/RHO60" 


A = -.00186840 (as of May 1, 1980) 

B = 1489.0670 (as of May 1, 1980) 
TERM] = B/RHO60 = X.XXXXXX truncated 
TERM2 = TERM1/RHO60 = .XXXXXXXX rounded 
ALPHA = A + TERM2 = .OQOOXXXX rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA*DELTA - 0.8*ALPHA2*DELTA2) 
a) calculate exponent 
TERM] = ALPHA * DELTA = .XXXXXXXX truncated 
TERM2 = 0.8 * TERM] = .XXXXXXXX truncated 
TERM3 = TERM] * TERM2 = .XXXXXXXX rounded 
TERM4 = — TERM] —- TERM3 = .XXXXXXXX 


b) calculate exponential 
VCF = EXP(TERM4) = X.XXXXXX rounded 
(Must use at least the first seven terms of 


the power series expansion.) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = XXXX.XXX truncated 


Since the equation for Peg cannot be solved explicitly, a successive 
approximation iterative scheme is used to obtain a solution. The initial 
estimate of 0p 60 is the value of the density at observed temperature t. 
This approximation is substituted into the right hand side of the equation 
to obtain a second value approximation. This process of substituting into 
the right hand side of the equation and estimating a new value from the 
other is repeated until two consecutive results are in agreement to the 
desired degree of accuracy. In subroutine TAB23B, a converged solution is 
reached when the change in density is less than 0.05 Kg/m> in two 
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successive passes. If the computed value of relative density 60/60°F is 
not on the same curve as the observed relative density, the parameters Ky 
and K) used to determine the coefficient of thermal expansion must be 
redefined and the convergence technique repeated. A straight line 
interpolation is used to connect the jet fuel curve with the gasoline curve 
when the solution is between 0.7710 and 0.7885. When this occurs, the 
coefficient of thermal expansion is defined as: 


a 2 
eg = A+B /? 60 


where A = -.00186840 (as o£ May 1, 1980) 
B = 1489.0670 (as of May 1, 1980) 


In this case, the tolerance is increased to 0.07 Kg/m>. 


The 1980 integer FORTRAN code issued by API contain both an integer 
division and an integer multiplication algorithm. A description of each 
follows. 


INTEGER MULTIPLICATION PROCEDURE 
(For 32 Bit Arithmetic) 


DATA DEFINITION 

X,Y are integer numbers that are equal to or less than 2*109 (slightly 
less than 231), A larger value may cause overflow. In addition, the 
total number of digits in X and Y mst not exceed 17, otherwise oerflow 
will occur. Z is the product (X*Y) scaled by 10-8, i.e. Z = (x*y) /108- 


Note: If it is desirable to obtain maximum precision, X and Y may ke 
scaled up prior to use of the procedure. Typically, at least 15 digits 
are needed to obtain 6 digit precision, 16 for 7 and 17 for 8. The 
largest value of X and Y that may be used are 2 000 000 000 and 

99 999 999. (Either values may be used for X and Y). 


CALCULATION 
X¥/10000 = Ul 
10000 * Ul = Kl 
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X-Kl = V1 

¥/10000 = U2 

10000 * U2 = K2 

Y-K2 = V2 

(U1L*V2) + (U2*V1) + (V1*V2/10000) = K3 
(K3 + 5000)/10000 + U1*U2 = 2 


Note: 2Z has been scaled by 10-8 and may have to be rescaled before use. 


TOTAL DIGITS INX ANDY 12 13 4 15 16 17 
DIGITS IN PRODUCT, 2 3-4 4-5 5-6 6-7 7-8 8&9 


INTEGER DIVISION PROCEDURE 
(For 32 Bit Arithmetic) 


DATA DEFINITION 
X,Y are integer numbers such that X is equal to or less than 231 -1 and 
Y is of order of magnitude 104 less than X. 


R is the quotient of X/Y scaled by 104, ices R= X/Y * 104. 


Note: If it is desirable to obtain maximum precision, X and Y may he scaled 
up prior to use of the procedure. Typically, the more digits that are 
carried in both X and Y, the more accurate digits on output. 


CALCULATION 
X/Y = Ul 
Ul * y= kl 
X-Kl=Vvi 
VI/Y = U2 
UL * 10000 + U2 =R 


Note: R has been scaled by 104 and may need to be rescaled before use. 
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The following examples illustrate how the implementation procedure is 
actually used to determine the value of relative density 60/60 °F for 
Generalized Products. The examples carry the computations through each step 
of the procedure showing the results of each mathematical operation. The 
computed values are given to the required precision and it is indicated if a 
value has been rounded or truncated. The step-by-step calculations are 
shown for the first iteration then a table is presented which summarizes the 
intermediate values used to obtain a converged solution. 


These examples are to be used as test cases for subroutine TAB23B to verify 
the computer code has not been altered or incorrectly reproduced. The 


routine has been designed to execute on machines that use word size of 
32-bits or greater. Any new development of computer code that is designed 
to follow the standard implementation procedure must insure that the values 
computed at each step in the procedure are identical to those given in the 
examples. 


EXAMPLE 1 
Step 1: Round input variables 
a) Round relative density to nearest .0005 
SG = .9040 rounded 
b) Round observed temperature to nearest 0.1 
T = 130.0 rounded 


Step 2: Calculate difference in cbserved temperature and base temperature 
BASE TEMPERATURE = 60.0 


Step 3: Compute hydrometer correction term 
HYC = 1.0 - .00001278 * DELTA — .0000000062 * DELTA 
TERM] = .00001278 * DELTA = .000894600 rounded 
TERM2 = .0000000062 * DELTA2 = .000030380 rounded 
HYC = 1.000000000 - .000894600- .000030380 = .999075020 
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Step 4: Convert relative density to density 
RHO = SG * 999.012 
RHO = 903.11 rounded 


Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 902.27 rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 902.27 


Step 6A: Calculate coefficient of thermal expansion 
ALPHA = Kg/RHO602 + Kj/RHO60 
Kg = 103.8720 (as of May 1, 1980) 
Ky, = 0.2701 (as of May 1, 1980) 
TERM1L = Kg/RHO60 
TERM] = .11512296 truncated 
TERM2 = TERM1/RHO60 
TERM2 = .0001275925 truncated 
TERM3 = Kj/RHO60 
TERM3 = .0002993560 truncated 
ALPHA = TERM2 + TERM3 = .0004269 rounded 


Step 7: Calculate volume correction factor 

VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 

a) Calculate exponent 
TERM! = ALPHA * DELTA = .02988300 truncated 
TERM2 = 0.8 * TERMI = .02390640 truncated 
TERM3 = TERM] * TERM2 = .00071439 rounded 
TERM4 = ~TERM] — TERM3 = —.03059739 

b) Calculate exponential 
VCF = EXP(TERM4) = .969866 rounded 
(must use the first seven terms of the power series 


expansion of e%*) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = 930.303 truncated 
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TABLE 1 shows the results of each iteration. 


TABLE 1 
ITERATION RHO60 (N) ALPHA VCF RHO60(N+1) 
1 902.27 -0004269 - 969866 930.303 
2 930.03 -0004104 971039 929.179 
3 929.18 -0004110 »970997 929.220 


SG60 = 929.22/999.012 = 0.9301 


Step 1: Round input variables 
a) Round relative density to nearest .0005 
SG = .8500 rounded 
b) Round observed temperature to nearest 0.1 
T= 7.5 rounded 


Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 60.0 
DELTA = 7.5 - 60.0 = -52.5 


Step 3: Compute hydrometer correction term 


HYC = 1.0 — .00001278 * DELTA - .0000000062 * DELTA? 


TERMI = .00001278 * DELTA = -.000670950 rounded 
TERM2 = .0000000062 * DELTA’ = .000017089 rounded 
HYC = 1.000000000 + .000670950 - .000017089 = 1.000653861 


Step 4: Convert relative density to density 
RHO = SG * 999.012 
RHO = 849.16 rounded 


Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 849.72 rounded 


Step 5B: Initialize 60 °F density 
RHO6O = RHOT = 849.72 
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Step 6: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO60* + K1/RHOGO 
Ko = 103.8720 (as of May 1, 1980) 
Ky = 0.2701 (as of May 1, 1980) 
TERM1 = Ko/RHO60 
TERM] = .12224262 truncated 
TERM2 = TERM1/RHO60 
TERM2 = .0001438622 truncated 
TERM3 = Kj/RHO60 
TERM3 = .0003178694 truncated 
ALPHA = TERM2 + TERM3 = .0004617 rounded 


Step 7: Calculate volume correction factor 

VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 

a) Calculate exponent 
TERMI = ALPHA * DELTA 
TERM2 = 0.8 * TERMI = -—.01939140 truncated 
TERM3 = TERML * TERM2 = .00047003 rounded 
TERM4 = ~TERM] - TERM3 = .02376922 

b) Calculate exponential 
VCF = EXP(TERM4) = 1.024054 rounded 
(must use the first seven terms of the power series 


—.02423925 truncated 


expansion of e%) 


Step 8: Calculate 60 °F density 
RHO6O = RHOTAWVCR = 829.760 truncated 


TABLE 2A shows the results of each iteration. 


TABLE 2A 
ITERATION RHO60 (N) ALPHA VCF RHO60(N+1) 
1 849.72 -0004617 1.024054 829.760 
2 829.76 -0004764 1.024813 829.146 
3 829.15 -0004768 1.024834 829.129 
SG60 = 829.13/999.012 = 0.8299 
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Computed value of SG60 is not on the same curve as the input relative 
density. Redefine Kg and Kj for the jet fuel curve and repeat the 
convergence scheme in Steps 5B through 8. Table 2B shows the results. 


TABLE 2B 
ITERATION RH060(N) ALPHA VCF RHO60(N+1) 
l 849.72 0004575 1.023837 829.936 
2 829.94 -0004795 1.024974 829.016 
3 829.02 -0004806 1.025030 828.970 


SG60 = 828.97/999.012 = 0.8298 


EXAMPLE 3 
Step 1: Round input variables 
a) Round relative density to nearest .0005 
SG = .8015 rounded 
b) Round observed temperature to nearest 0.1 
T= 77.0 rounded 


Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 60.0 
DELTA = 77.0 - 60.0 = 17.0 


Step 3: Compute hydrometer correction term 


HyC = 1.0 — .00001278 * DELTA - .0000000062 * DELTA? 


TERM] = .00001278 * DELTA = .000217260 rounded 
TERM2 = .0000000062 * DELTA? = .000001792 rounded 
HYC = 1.000000000 - .000217260 - .000001792 = .999780948 


Step 4: Convert relative density to density 
RHO = SG * 999.012 
RHO = 800.71 rounded 


Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 800.53 rounded 
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Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 800.53 


Step 6: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO6O" +- Ky /RHO60 
Kg = 330.3010 (as of May 1, 1980) 
K, = 0.0 (as of May 1, 1980) 
TERML = Kg/RHO60 
TERM] = .41260290 truncated 
TERM2 = TERM1/RHO60 
TERM2 = .0005154121 truncated 
TERM3 = K;/RHO60 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0005154 rounded 


Step 7: Calculate volume correction factor 


VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 


a) Calculate exponent 


TERM] = ALPHA * DELTA = .00876180 truncated 
0.8 * TERMI = .00700944 truncated 
TERML * TERM2 = .00006142 rounded 


TERM2 

TERM3 

TERM4 = -TERML ~ TERM3 = —.00882322 
b) Calculate exponential 

VCF = EXP(TERM4) = .991216 rounded 


(must use the first seven terms of the power series 


expansion of e*) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = 807.624 truncated 


TABLE 3 shows the results of each iteration. 


TABLE 3 
ITERATION RHO60 (N) ALPHA VCF 
1 800 .53 -0005154 -991216 
2 807 .62 -0005064 -991369 
3 807.50 -0005066 -991366 
SG60 = 807.50/999.012 = 0.8083 
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EXAMPLE 4 
Step 1: Round input variables 
a) Round relative density to nearest .0005 
SG = .7390 rounded 
b) Round observed temperature to nearest 0.1 
T= 140.0 rounded 


Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 60.0 
DELTA = 140.0 — 60.0 = 80.0 


Step 3: Compute hydrometer correction term 


HYC =1.0 — .00001278 * DELTA - .0000000062 * DELTA? 


TERM] = .00001278 * DELTA = .001022400 rounded 
TERM2 = .0000000062 * DELTA = .000039680 rounded 
HYC = 1.000000000 — .001022400 - .000039680 = .998937920 


Step 4: Convert relative density to density 
RHO = SG * 999.012 
RHO = 738.27 rounded 


Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 737.49 rounded 


Step 5B: Initialize 60 °F density 
RHO6O = RHOT = 737.49 


Step 6A: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO6O~ + Kj/RHO60 
Kg = 192.4571 (as of May 1, 1980) 
K) = 0.2438 (as of May 1, 1980) 
TERM] = Kg/RHO60 
TERMI] = .26096231 truncated 
TERM2 = TERML/RHO60 
TERM2 = .0003538519 truncated 
TERM3 = Kj/RHO60 
TERM3 = .0003305807 truncated 
TERM2 + TERM3 = .0006844 rounded 
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Step 7: Calculate volume correction factor 

VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * pELTA2) 

a) Calculate exponent 
TERM] = ALPHA * DELTA = .05475200 truncated 
TERM2 = 0.8 * TERM] = .04380160 truncated 
TERM3 = TERM] * TERM2 = .00239823 rounded 
TERM4 = —TERML - TERM3 = -.05715023 

b) Calculate exponential 
VCF = EXP(TERM4) = .944452 rounded 
(must use the first seven terms of the power series 
expansion of e%) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = 780.865 truncated 


TABLE 4A shows the results of each iteration. 


TABLE 4A 
ITERATION RHO60(N) ALPHA VCF RHO60(N+1) 
1 737.49 -00060844 944452 780.865 
2 780 .87 -0006278 -949099 777.042 
3 777.04 -0006325 -948714 777.357 
4 777.36 -0006321 -948746 777.331 


SG60 = 777.33/999.012 = 0.7781 


Computed value of SG60 is on the straight line segment connecting the jet 
fuel and gasoline curves. Redefine ALPHA and repeat convergence scheme in 


steps 5B through 8. 


Step 5B: Initialize 60 °F density 
RHO60 = 778.84 
(first approximation is density equivalent of 50 °APT) 
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Step 6B: Calculation of ALPHA for straight line segment 
At B/RHO60" 


ALPHA = 
A = -.00186840 (as of May 1, 1980) 
B = 1489.0670 (as of May 1, 1980) 
TERM] = B/RHO60 = 1.911903 truncated 
TERM2 = TERM]/RHO60 = .00245481 rounded 
ALPHA = A + TERM2 = .0005864 rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 
a) Calculate exponent 
TERM4 = ~.04691200 - .00176059 = -.04867259 
b) Calculate exponential 
VCF = EXP(TERM4) = .952493 rounded 
(must use the first seven terms of the power series 


expansion of eX) 


Step 8: Calculate 60 °F density 
RHO60 = 737.49/.952493 = 774.273 


TABLE 4B 
ITERATION RHO60(N) ALPHA VCF RHO60(N+1) 
1 778 84 -0005864 «952493 774.273 
2 774.27 -0006155 -950108 776.217 
3 776.22 -0006030 -951133 775 .380 
4 775 238 -0006084 -950690 775.741 
5 775.274 -0006061 -950879 775 587 
6 775.59 -0006070 -950805 775 .648 


SG60 = 775.65/999.012 = 0.7764 


EXAMPLE 5 
Step 1: Round input variables 
a) Round relative density to nearest .0005 
SG = .7795 rounded 


Copyright por American Petroleum Institute 
Mon Feb 07 13:42:41 2005 


API MPMS*11.1 VOL*X 80 MM 0732290 0526075 705 


SECTION 1—VOLUME CORRECTION FACTORS X-211 


b) Round observed temperature to nearest 0.1 
T= 12.5 rounded 


Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 60.0 
DELTA = 12.5 - 60.0 = -47.5 


Step 3: Compute hydrometer correction term 

HyYC = 1.0 - .00001278 * DELTA — .0000000062 * DELTA? 
.00001278 * DELTA = -.000607050 rounded 
TERM2 = .0000000062 * DELTA? = .000013989 rounded 


1.000000000 + .000607050 — .000013989 = 1.000593061 


a 
Q 
It 


Step 4: Convert relative density to density 
RHO = SG * 999.012 
RHO = 778.73 rounded 


Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 779.19 rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 779.19 


Step 6A: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO607 + K1/RHO60 
Kg = 330.3010 (as of May 1, 1980) 
Kj = 0.0 (as of May 1, 1980) 
TERM] = Ko/RHO60 
TERMI] = .42390302 truncated 
TERM2 = TERM] /RHO60 
TERM2 = .0005440303 truncated 
TERM3 = Kj/RHO60 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0005440 rounded 


Step 7: Calculate volume correction factor 


VCF = EXP(-ALPHA * DELTA — 0.8 * ALPHA2 * pELTA2) 
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a) Calculate exponent 
TERM] = ALPHA * DELTA = -.02584000 truncated 
TERM2 = 0.8 * TERM] = -.02067200 truncated 
TERM3 = TERM] * TERM2 = .00053416 rounded 
TERM4 = -TERM] - TERM3 = .02530584 
b) Calculate exponential 
VCF = EXP(TERM4) = 1.025629 rounded 
(must use the first seven terms of the power series 


expansion of eX) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = 759.719 truncated 


TABLE 5A shows the results of each iteration. 


TABLE 5A 
ITERATION RHO60 (N) ALPHA VCF RHO60(N+1) 
1 779.19 -0005440 1.025629 759.719 
2 759.72 -0005723 1.026950 758.741 
3 758.74 -0005738 1.027020 758 .690 
4 758 .69 -0005738 1.027020 758 «690 


SG60 = 758.69/999.012 = 0.7594 


Computed value of SG60 is not on the same curve as the input specific 
gravity. Redefine Kg and K, for the gasoline curve and repeat the 
convergence scheme in steps 5B through 8. Table 5B shows the results. 


TABLE 5B 
ITERATION RHO60 (N) ALPHA VCF RHO60(N+1) 
1 779.19 »0006299 1.029635 756.763 
2 756 «76 -0006582 1.030952 755.796 
3 755 .80 -0006595 1.031012 755.752 


SG60 = 755.75/999.012 = 0.7565 
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EXAMPLE 6 
Step I: Round input variables 
a) Round relative density to nearest .0005 
SG = .6850 rounded 
b) Round observed temperature to nearest 0.1 
T = 94.0 rounded 


Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 60.0 
DELTA = 94.0 - 60.0 = 34.0 


Step 3: Compute hydrometer correction term 
HYC = 1.0 - .00001278 * DELTA - .0000000062 * DELTA 


TERM] = .00001278 * DELTA = .000434520 rounded 
TERM2 = .0000000062 * DELTA? = .000007167 rounded 
HYC = 1.000000000 - .000434520 - .000007167 = .9995 


Step 4: Convert relative density to density 
RHO = SG * 999.012 
RHO = 684.32 rounded 


Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 684.02 rounded 


Step 5B: Initialize 60 °F density 
RHO60 = RHOT = 684.02 


Step 6A: Calculate coefficient of thermal expansion 
ALPHA = Kg/RHO60" + K1/RHO6O 
Kg = 192.4571 (as of May 1, 1980) 
Ky = 0.2438 (as of May 1, 1980) 
TERMI = Kg/RHO60 
TERM] = .28136180 truncated 
TERM2 = TERM] /RHO60 
TERM2 = .0004113356 truncated 
TERM3 = K/RHO60 
TERM3 = .0003564223 truncated 
ALPHA = TERM2 + TERM3 = .0007678 rounded 
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Step 7: Calculate volume correction factor 

VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA) 

a) Calculate exponent 
TERM] = ALPHA * DELTA = .02610520 truncated 
TERM2 = 0.8 * TERM] = .02088416 truncated 
TERM3 = TERM] * TERM2 = .00054519 rounded 
TERM4 = ~TERM] - TERM3 = -.02665039 

b) Calculate exponential 
VCF = EXP(TERM4) = .973702 rounded 
(must use the first seven terms of the power series 


expansion of e%) 


Step 8: Calculate 60 °F density 
RHO60 = RHOT/VCF = 702.494 truncated 


TABLE 6 shows the results of each iteration. 


TABLE 6 
ITERATION RHO60 (N) ALPHA VCF RHO60(N+1) 
L 684 .02 -0007678 -973702 702.494 
2 702.49 -0007370 -974764 701.728 
3 701.73 -0007383 -974719 701.761 


SG60 = 701.76/999.012 = 0.7025 


EXAMPLE 7 
Step 1: Round input variables 
a) Round relative density to nearest .0005 
SG = .7565 rounded 
b) Round observed temperature to nearest 0.1 
T= 176.0 rounded 


Step 2: Calculate difference in observed temperature and base 
temperature 
PASE TEMPERATURE = 60.0 
DELTA = 176.0 - 60.0 = 116.0 
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Step 3: Compute hydrometer correction term 
HyC =1.0 — .00001278 * DELTA - .0000000062 * DELTA? 
TERML = .00001278 * DELTA = .001482480 rounded 
TERM2 = .0000000062 * DELTA? = .000083427 rounded 
HYC = 1.000000000 - .001482480 — .000083427 = .998434093 


Step 4: Convert relative density to density 
RHO = SG * 999.012 
RHO = 755.75 rounded 


Step 5A: Application of hydrometer correction 
RHOT = RHO * HYC = 754.57 rounded 


Step 5B: Initialize 60 °F density 
RHO6O = RHOT = 754.57 


Step 6A: Calculate coefficient of thermal expansion 
ALPHA = K/RHO607 + K1/RHO60 
Kg = 192.4571 (as of May 1, 1980) 
K i = 0.2438 (as of May 1, 1980) 
TERM] = Kg/RHO60 
TERML = .25505532 truncated 
TERM2 = TERM1/RHO60 
TERM2 = .0003380141 truncated 
TERM3 = K7/RHO60 
TERM3 = .0003230979 truncated 
ALPHA = TERM2 + TERM3 = .0006611 rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA? * DELTA2) 
a) Calculate exponent 
TERML = ALPHA * DELTA 


-07668760 truncated 


TERM? = 0.8 * TERM] = .06135008 truncated 
TERM3 = TERM] * TERM2 = .00470479 rounded 
TERM4 = ~TERM] -— TERM3 = —.08139239 


b 


— 


Calculate exponential 

VCF = EXP(TERM4) = .921832 rounded 

(must use the first seven terms of the power series 
expansion of e%) 
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Step 8: Calculate 60 °F density 
RHO60 = RHOTAVCF = 818.554 truncated 


TABLE 7A shows the 


ITERATION 
1 


Om om Ww Nh 


results of each iteration. 


TABLE 7A 
RHO60 (N) ALPHA VCF 
754.57 -0006611 921832 
818.55 -0005851 -930943 
810.54 -0005937 929914 
811.44 «0005927 «930033 
811.34 -00059 29 ~930009 


SG60 = 811.36/999.012 = 0.8122 


RHO60(N+1) 


818.554 
810.543 
811.440 
811.336 
811.357 


Computed value of SG60 is not m the same curve as the input relative 
density. Redefine Kg and K, for the jet fuel curve and repeat the 
in steps 5B through 8. Table 7B shows the results. 


convergence scheme 


ITERATION 
1 


a & WwW Nh 


sG60 = 


TABLE 7B 
RHO60(N) ALPHA VCF 
754.57 -0005801 -931542 
810.02 -0005034 -940708 
802.13 -0005134 -939515 
803.15 -0005121 -939670 
803.02 -0005122 -939658 


803 .03/999.012 = 0.8038 
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810 .022 
802.129 
803.148 
803.015 
803 .026 
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11.1.24 TABLES 24A, 24B, and 24C— 
Correction of Volume to 60°F 
Against Relative Density 60/60°F 
and Thermal Expansion 
Coefficients 


TABLES 24A, 24B, and 24C give the factors for 
converting liquid petroleum volumes measured at ob- 
served temperatures to the corresponding volumes at 
60°F. 

The data are presented in three tables to maximize 
accuracy while maintaining convenience of use: 


TABLE 24A Generalized Crude Oils 
(see Volume IV) 

TABLE 24B Generalized Products 
(see Volume V) 

TABLE 24C Volume Correction Factors for 
Individual and Special Applica- 
tions (see Volume VI) 


TABLES 24A and 24B use relative density 60/60°F to 
obtain volume correction factors. TABLE 24C uses ex- 
perimentally determined thermal expansion coeffi- 
cients to obtain volume correction factors. 

The development and intended use of these tables is 
described in 11.1.6. The parameters Ky and K, may be 
found in 11.1.24.7. (see Volume VI). 

The limits of these tables are illustrated in Figures 
X-11, X-12, and X-13. 


11.1.24.1 TABLE 24A—GENERALIZED CRUDE 
OILS, CORRECTION OF VOLUME TO 
60°F AGAINST RELATIVE 
DENSITY 60/60°F 


Table 24A gives volume correction factors converting 
crude oil volumes observed at temperatures other than 
60°F to corresponding volumes at 60°F. 


Data Range 


X-217 


The volume correction factors given in this table are 
the result of a computer procedure which is the Stan- 
dard (see 11.1.24.2 and 11.1.24.3). All of these.volumes 
are at saturation conditions. Pressure corrections from 
saturation are not included. 


The temperature ranges of this table are: 


Relative Density 60/60°F °F 


0.8250 to 1.0760 0 to 300 
0.7795 to 0.8250 0 to 250 
0.6110 to 0.7795 0 to 200 


The volume correction factors given in this table are 
based on data from the U.S. National Bureau of Stan- 
dards and from other published data. Portions of the 
relative density and temperature ranges represent areas 
beyond these data. Thus, mathematical techniques 
were employed to extrapolate beyond the relative den- 
sity and temperature ranges of the given data to deter- 
mine the volume correction factors for these areas. 
These factors are denoted by an asterisk (*). Extension 
of this table beyond the ranges shown is not recom- 
mended. 


Increments used in this table for determining volume 
correction factors are 0.5°F and 0.0020 relative density. 
Interpolation between either temperature or relative 
density is not intended since there is no practical meth- 
od of interpolation that will produce the accuracy ob- 
tainable from the Standard. 


This table must be entered with a known rela- 
tive density 60/60°F and with an observed tem- 
perature. 


8250 .7795.7585 


Figure X-11 — Data Limits for TABLE 24A 
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° +0760 8250 .7795 6535 
Relative Density 
Figure X-12 — Data Limits for TABLE 24B 
,eMRAUqU[ACCMttfa 
Temp 
°F 


%70 610 530 930 
Thermal Expansion Coefficient x 17 (°F—1) 


Figure X-13 — Data Limits for TABLE 24C 


11.1.24.2 PROGRAM DOCUMENTATION FOR SUBROUTINE TAB24A— 


GENERALIZED CRUDE OILS, CORRECTION OF VOLUME TO 60°F 
AGAINST RELATIVE DENSITY 60/60°F 


The thermal expansion properties (volume correction factors, VCF's) for 
products (excluding lube stocks) and crudes are correlated in two separate 
generalized tables as a function of temperature and relative density 60/60 °F. 
The predicted precision at 95% confidence is: 


VCF Precision at 95% Confidence, % 
Temperature 100 °F 150 °F 200 °F 250 °F 
Crudes & Products +0.05 015 025 035 
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if this precision is unacceptable, it is recommended that the actual thermal 
expansion properties of the substance be measured and the VCF be determined 
using TABLE 24C with either K or alpha values derived from the measured data. 


The instructions for this procedure are given in TABLE 24C. 


ABSTRACT 


Subroutine Title: TAB24A - TABLE 24A, Generalized Crude Oils, 
Volume Correction to 60 °F. 


Description: This subroutine is designed to calculate the 
volume correction factor required to convert 
a volume at an observed temperature to the 
corresponding volume at 60 °F assuming the 


substance can be characterized as a crude oil. 


Program Responsibility: American Petroleum Institute 
Measurement Coordination 
2101 L Street, NW. 
Washington, D.C. 20037 


Date Issued: August 1980 
Language: FORTRAN, ANSI/ASA Standard 
Reference: AP| Standard 2540, TABLE 24, 11.1.24 


THIS SUBROUTINE WAS DEVELOPED USING THE MATHEMATICAL ALGORITHMS 
AND SPECIFICATIONS DESCRIBED IN THE DOCUMENT PROCEDURE 11.1.24.3. 
ANY MODIFICATIONS TO THIS SUBROUTINE MUST RIGIDLY ADHERE 
TO THE SAME ALGORITHMS AND SPECIFICATIONS. 


11.1.24.2.1 |ntroduction 


TAB24A is a computer subroutine designed to calculate the volume correc- 


tion factor (VCF) necessary to convert a volume of a generalized crude at a 
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specified temperature in degrees Fahrenheit (°F) and of a specified relative 
density 60/60 °F to the equivalent volume at 60 °F. The subroutine accepts as 
input the relative density 60/60 °F rounded to the nearest 0.0005 and the 
observed temperature rounded to the nearest 0.1 °F. If either input value has 
not been properly rounded, the subroutine will round the values and return the 
corrected values. The subroutine returns one value of VCF with 5 significant 
figures of accuracy for computation purposes and another VCF value rounded to 
four decimal places for printing purposes. The subroutine also outputs a 
status code for user convenience. The code is set to -1 if an error condition 
eccurs and to +! if the input vaiues are outside the limits of the correlation. 
A status code of zero is returned if the input values are within the limits of 
the correlation. The limits of the correlation including the extrapolated 
region are depicted in Figure X-11. The calling program must check the flag and 


provide the user with appropriate warning messages or program termination. 


11.1.24.2.2 Subroutine Specifications 


The range of application: Relative Density 60/60 °F Temperature, °F 


0.6110 to 0.7795 0.0 to 200.0 

0.7800 to 0.8250 0.0 to 250.0 

0.8255 to 1.0760 0.0 to 300.0 
Referenced modules: ALPHAA, VCF24A, SDIVA, MPYA 


FORTRAN functions: FLOAT 


Average execution time: 2200 VCF entries/CPU second 
1BM 370/168 


The subroutines are written in ANSI/ASA FORTRAN using integer arithmetic. The 


size and storage requirements are: 


1. Compilable source statements 11 
2. Decimal storage bytes 2786 
3. Words 697 
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11.1.24.2.3 Calling Sequence 


CALL TAB24A (SG60, DEGF, VCFC, VCFP, IFLAG) 


INPUT DESCRIPTION 


SG60 - 


DEGF - 


Relative density 60/60 °F 
(SG60 returned will be rounded to nearest 0.0005) 


Observed temperature, °F 


(DEGF returned will be rounded to nearest 0.1 °F) 


OUTPUT DESCRIPTION 


VCFC - 


VCFP 


IFLAG - 


Output VCF rounded to 5 significant figures for computational! 


purposes 
t.e. VCFC = 1.XXXX 
or VCFC = 0.XXXXX 


Output VCF rounded to 4 decimal places for printing purposes 
ie. VCFP 1 .XXXX 
or VCFP = 0.XXXX 


Status Code 


OQ: Indicates input variables are within the range of applica- 


tion 


1; Input data outside limits of correlation as given in 
11.1.24. 


-1: Indicates input SG6O or input DEGF outside range of appli- 
cation as given in 11.1424; VCFC and VCFP set to -1.0000. 
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11.1-24.2.4 Method of Calculation 


The subroutine evaluates the equation 


VCF = EXPI- G69 AT(1.0 + 0.8 %¢69 AT)] 


where At = DEGF - 60.0 
Sete 50h gt 
60 2 P69 
°60 
en = relative density 60/60 °F x 999.012 


999.012 = density of water at 60 °F, Kg/m? 


A full explanation of the equations and the parameters Kg and Kj may be 
found in AP! Standard 2540, TABLE 24, 11.1.24. 


11.1.24.2.5 Examples 


These examples are tutorial in nature and are not intended to be sufficient 
for subroutine checkout. The examples given in procedure 11.1.24.3 are to be 


used for the computer checkout. 


Example 1 
$G60 = 0.8396 
DEGF = 90.47 
CALL TAB24A (SG60, DEGF, VCFC, VCFP, IFLAG) 
After the call: SG60 = 0.8395 


DEGF = 90.5 
VCFC = .98515 
VCFP = .9851 
IFLAG = 0 
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Example 3 
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SG60 = 0.7905 
DEGF = 240.0 
CALL TAB2Z4A (SG60, DEGF, VCFC, VCFP, IFLAG) 
After the call: SG60 = 0.7905 
DEGF = 240.0 
VCFC = «89925 
VCFP = .8992 
IFLAG = 1 
SG60 = 0.8398 
DEGF = 500.0 
CALL TAB24A (SG60, DEGF, VCFC, VCFP, IFLAG) 
After the call: SG60 = 0.8400 
DEGF = 500.0 
VCFC = -1.0000 
VCFP = -1.0000 
[FLAG = -1 
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11.1.24.2.6 FLOWCHART 


INPUT: RELATIVE DENSITY 60/60°F 
OBSERVED TEMPERATURE 


ROUND INPUT DATA 
TO SPECIFICATION 


NO SET VCF = -1.0000 
ERROR FLAG IERR = -] 


CHECK 
TO SEE IF 
DATA WITHIN 
BOUNDS OF 
TABLE 


RETURN 


YES 


CALCULATE RHO 
CALCULATE ALPHA 


CALCULATE VCF 


CHECK 
TO SEE - 
1$ DATA IN 
EXTRAPOLATED 
REGION? 


NO YES 


SET ERROR 
FLAG = 0 


SET ERROR 
FLAG = 1 


RETURN 
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11.1.24.2.7 Subroutine Listing 


TAB2Z4A This subroutine serves as the input/output routine to 
the subsequent modules necessary in the calculation of 
volume correction factor from relative density 60/60 °F 


and observed temperature. 


Referenced Modules 


ALPHAA This module is designed to calculate alpha for use in 


determination of volume correction factor. 


MPYA This module performs integer multiplication with a maxi- 


mum of 17 digits. 


SDIVA This module is designed to produce additional accuracy 
from an integer divide where the numerator is 10000 


greater than the denominator. 


VCF24A This module is designed to calculate volume correction 
factor. 

SUBROUTINE TAB24A(SG60,DEGF , VCFC,VCFP,IFLAG) 24A00010 
Cc 24A00020 
Cc (C)COPYRIGHT 1980 24A00030 
Cc AMERICAN PETROLEUM INSTITUTE 24A00040 
Cc ALL RIGHTS RESERVED 24A00050 
Cc 24A00060 
G THIS SUBROUTINE IS A VOLUNTARY STANDARD AND WAS DEVELOPED 24A00070 
Cc UNDER THE AUSPICES OF THE JOINT API-ASTM COMMITTEE ON STATIC 24A00080 
c PETROLEUM MEASUREMENT IN PART FROM DATA GENERATED 24A00090 
Cc BY A PROJECT FUNDED BY THE AMERICAN PETROLEUM 24A00100 
C INSTITUTE AT THE U.S. NATIONAL BUREAU OF STANDARDS, 24A00110 
Cc GAITHERSBURG, MARYLAND. 24A00120 
Cc 24A00130 
Cc INQUIRIES CONCERNING ITS APPLICATION SHOULD 24A00140 
Cc BE ADDRESSED TO: 24A00150 
Cc AMERICAN PETROLEUM INSTITUTE 24A00160 
Cc MEASUREMENT COORDINATION 24A00170 
Cc 2101 L STREET, N.W. 24A00180 
Cc WASHINGTON, DC 20037 24A00190 
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Cc 24A00200 
Cc ae Xe Xe ote te ake ie oe te oe oe ak Xe He fe Me ok oe ae ae ae oe aie oe Me ae le Me ok Me ae ae ole att ake ae oie ake ake ae fe oie ole ake ake Sle Ne Me ole Oe fe ae ele ae Ok oe He oe oe 24A00210 
Cc * = 24A00220 
G * THIS SUBROUTINE OR THE MATHEMATICAL RELATIONSHIPS ‘ 24A00230 
Cc * REPRESENTED THEREBY MAY BE USED BY ANYONE WISHING * 24A00240 
Cc * TO DO SO, BUT THE AMERICAN PETROLEUM INSTITUTE, id 24A00250 
Cc * THE AMERICAN SOCIETY FOR TESTING AND MATERIALS, * 24A00260 
CG * AND THE INSTITUTE OF PETROLEUM AND THEIR » 24A00270 
Cc * RESPECTIVE MEMBERS AND THE U.S. NATIONAL BUREAU - 24A00280 
Cc * OF STANDARDS, SHALL NOT BE HELD RESPONSIBLE OR * 24A00290 
Cc * LIABLE IN ANY WAY FROM LOSS OR DAMAGE, INCLUDING, i 24A00300 
Cc * BUT NOT LIMITED TO, CONSEQUENTIAL DAMAGE , * 24A00310 
Cc * RESULTING FROM SUCH USAGE OR FOR VIOLATION OF * 24A00320 
Cc * ANY FEDERAL, STATE, OR MUNICIPAL LAWS, REGULATIONS * 24A00330 
Cc * OR PRACTICES OF THE UNITED STATES OR OF ANY = 24A00340 
Cc * FOREIGN COUNTRY . ss 24A00350 
c * * 24A00360 
Cc Me He Me Me ae Me oe ae he oie ak Me ae de ae ake OK ke ae oe he ale ae te oie ae ate oie oe ake ok ae Me Me oie de ake Me ake she ale se ole Se he ole ake ake ole ake ate ake te okt ake ok ate oe he ole 24A00370 
Cc 24A00380 
Cc THE THERMAL EXPANSION PROPERTIES (VOLUME CORRECTION FACTORS, 24A00390 
Cc VCFS) FOR PRODUCTS (EXCLUDING LUBE STOCKS) AND CRUDES 24A00400 
Cc ARE CORRELATED IN TWO SEPARATE, GENERALIZED TABLES 24A00410 
Cc AS A FUNCTION OF TEMPERATURE AND RELATIVE DENSITY 60/60 F. 24A00420 
Cc THE PREDICTED PRECISION AT 95 PERCENT CONFIDENCE IS: 24A00430 
Cc 24A00440 
Cc VCF PRECISION AT 95 PERCENT CONFIDENCE, PERCENT 24A00450 
Cc 24A00460 
Cc TEMPERATURE 100F 150F 200F 250F 24A00470 
Cc CRUDES, PRODUCTS 0.05 0.15 0.25 0.35 24A00480 
Cc 24A00490 
Cc IF THIS PRECISION IS UNACCEPTABLE, IT IS RECOMMENDED 24A00500 
Cc THAT THE ACTUAL THERMAL EXPANSION PROPERTIES OF THE 24A00510 
Cc SUBSTANCE BE MEASURED AND THE VCF BE DETERMINED 24A00520 
Cc USING TABLE 24C WITH EITHER K OR ALPHA VALUES DERIVED 24A00530 
Cc FROM THE MEASURED DATA. THE INSTRUCTIONS FOR THIS 24A00540 
Cc PROCEDURE ARE GIVEN IN TABLE 24C. 24A00550 
Cc 24A00560 
Cc THIS SUBROUTINE IS DESIGNED TO ACCEPT AS 24A00570 
Cc INPUT RELATIVE DENSITY 60/60 F(SG60) AND 24A00580 
Cc OBSERVED TEMPERATURE IN DEGREES FAHRENHEIT (DEGF) AND 24A00590 
Cc PRODUCE THE VOLUME CORRECTION FACTOR (VCF) FOR 24A00600 
Cc API TABLE 24A, GENERALIZED CRUDE OILS 24A00610 
Cc VOLUME CORRECTION FACTOR TO 60 F. 24A00620 
Cc 24A00630 
Cc THIS SUBROUTINE CALLS THE FOLLOWING MODULES 24A00640 
Cc ALPHAA (CALLS SDIVA) 24A00650 
Cc MPYA 24A00660 
Cc VCF24A (CALLS MPYA) 24A00670 
Cc 24A00680 
c SG60 SHOULD BE PASSED ROUNDED TO THE NEAREST 24A00690 
Cc 0.0005. THE SUBROUTINE WILL HOWEVER ROUND THE 24A00700 
Cc VALUE AND RETURN THE CORRECTED VALUE. 24A00710 
Cc 24A00720 
Cc DEGF SHOULD BE PASSED IN THE NEAREST TENTH 24A00730 
Cc OF DEGREE FAHRENHEIT. THE SUBROUTINE WILL HOWEVER 24A00740 
Cc ROUND THE VALUE AND RETURN THE CORRECTED VALUE. 24A00750 
Cc 24A00760 
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MQAMQANAAIAIAAAAAMAAADND 


oOan 


aang 


10 


20 
30 


oOag 


VCFC IS THE RETURNED VOLUME CORRECTION FACTOR 
CORRECT TO FIVE(5) SIGNIFICANT FIGURES. 


VCFP IS THE RETURNED VOLUME CORRECTION FACTOR 
CORRECT TO FOUR(4) DECIMAL DIGITS. 


IFLAG IS THE ROUNDED STATUS CODE WHICH SHOULD 
BE CHECKED BY THE USER IN THE CALLING PROGRAM 


=0 NO ERROR 


=1 INPUT DATA WITHIN EXTRAPOLATION RANGES AS 

GIVEN IN API 2540, TABLE 24, 

=-1 INPUT DATA OUTSIDE SPECIFIED RANGE OF 
APPLICATION AS GIVEN IN API 2540, 


TABLE 24,11.1.24 


DATA IBAS/600/ 
DATA IBP1 ,IBP2/7795, 8250/ 
DATA NBP1/10760/ 


DATA ITMP1 , ITMP2, ITMP3/2000 , 2500,3000/ 
DATA IEP1,IEP2, IEP3/1500 , 2000 , 2500/ 


DATA IESG/7585/ 

DATA IFSG/6110/ 

DATA IBT1/0/ 

DATA KO,K1/3410957 ,0/ 


IFLAG=-1 
VCFP=- 1.0000 
VCFC=- 1.0000 


ROUND INPUT PARAMETERS 
ISG=(SG60*100000.+25.0)/50.0 
ISG=ISG*5 
SG60=FLOAT (ISG) /10000. 
ITEMP=DEGF *10 .0+0.5 
DEGF=FLOAT(ITEMP)/10.0 

CHECK SPECIFIC GRAVITY RANGES 


IF(ISG-IFSG)10,20, 20 


CONT INUE 

RETURN 

IF( ISG-NBP1)30,30,10 

CONT INUE 

CHECK VALID TEMPERATURE RANGES 
IDT=ITEMP - IBAS 

IF( ITEMP-IBT1)40,50,50 
CONTINUE 

RETURN 
IF(ISG-IBP1)60,60, 70 

IF( ITEMP-ITMP1)100,100,40 
IF( ISG-IBP2)80,80,90 

IF ( ITEMP-ITMP2)100,100,40 
IF(ITEMP-ITMP3)100,100,40 
CONTINUE 
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24A00770 
24A00780 
24A00790 
24A00800 
24A00810 
24A00820 
24A00830 
24A00840 
24A00850 
24A00860 
24A00870 
24A00880 
24A00890 
24A00900 
24A00910 
24A00920 
24A00930 
24A00940 
24A00950 
24A00960 
24A00970 
24A00980 
24A00990 
24A01000 
24A01010 
24401020 
24A01030 
24A01040 
24A01050 
24A01060 
24A01070 
24A01080 
24A01090 
24A01100 
24A01110 
24A01120 
24A01130 
24A01140 
24A01150 
24A01160 
24A01170 
24A01180 
24A01190 
24A01200 


' 24A01210 


24A01220 
24A01230 
24A01 240 
24A01250 
24A01260 
24A01270 
24A01280 
24A01290 
24A01300 
24A01310 
24A01320 
24A01330 
24A01340 


APT MPMS*11-1 VOL*X 60 MM O?3e290 0526093 724 


X-228 CHAPTER 11—PHysICAL Properties DATA 
Cc CONVERT RELATIVE DENSITY 60/60 F TO DENSITY 
Cc TY - DENSITY OF WATER = 999.012 KG/M**#3 
Cc 


IX=ISG*1000 
1Y¥=9990120 

CALL MPYA(IX, IY, IDEN) 
IDEN=(IDEN+5 ) /10 


Cc 
Cc 
Cc CALCULATE ALPHA 
Cc 
CALL ALPHAA( IDEN, KO, K1,IALF) 
Cc 
Cc CALCULATE VCF 
Cc 
CALL VCF24A(IALF,IDT ,IVCF) 
IFLAG=0 
Cc 
C CHECK TO DETERMINE IF IN EXTRAPOLATED REGION 
Cc 


IF (ISG-IESG)170,170,160 
160 CONTINUE 

IFLAG=1 

GO TO 220 
170 IF(ISG-IBP1 )180,180,190 
180 IF(ITEMP-IEP1)220,220,160 


190 IF(ISG-IBP2)200, 200,210 
200 IFC ITEMP-IEP2)220 , 220,160 
210 IFC ITEMP-IEP3)220 , 220,160 
220 CONTINUE 


CALCULATE PRINT AND CALCULATION VALUES OF VCF 
PRINT VALUE(PVCF)ROUNDED TO 4 DECIMAL DIGITS 
CALCULATION VALUE(CVCF) ROUNDED TO 5 SIGNIFICANT DIGITS 


oe eoxene) 


JVCF=( IVCF/1000+5)/10 

PVCF=JVGF 

PVCF=PVCF/10000. 

IF (IVCF - 100000000 )230, 240, 240 
230 CONTINUE 


VCF LESS THAN ONE, FIVE DECIMALS RETURNED 


oa00 


JVCF=(IVCF/100+5)/10 
CVCGF=JVCF 
CVCF=CVCF/100000. 
GO TO 250 

240 CONTINUE 
CVCF=PVCF 

250 CONTINUE 
VCFC=CVCF 
VCFP=PVCF 
RETURN 
END 
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24A01350 
24A01360 
24A01370 
24A01380 
24A01390 
24A01400 
24A01410 
24A01420 
24A01 430 
24A01440 
24A01450 
24A01460 
24A01470 
24A01480 
24A01490 
24A01500 
24A01510 
24A01520 
24A01530 
24A01540 
24A01550 
24A01560 
24A01570 
24A01580 
24A01590 
24A01600 


24A01610 
24A01620 
24A01 630 
24A01640 
24A01650 
24A01660 
24A01670 
24A01680 
24A01690 
24A01700 
24A01710 
24A01720 
24A01 730 
24A01740 
24A01750 
24A01760 
24A01770 
24A01780 
24A01790 
24A01800 
24A01810 
24A01 820 
24A01 830 
24A01840 
24A01850 
24A01860 
24A01870 
24A01880 


API MPMS*¥11-1 VOL*X 80 MM 0732290 0526094 b60 


SECTION 1—-VoLUME CORRECTION FacTORS X-229 
SUBROUTINE SDIVA( INUM, IDENOM, IRES) 24A01890 
Cc 24A01900 
Cc THIS MODULE IS DESIGNED TO PRODUCE ADDITIONAL 24A01910 
Cc ACCURACY FROM AN INTEGER DIVIDE WHERE THE NUMERATOR 24A01920 
CG IS 10000 GREATER THAN THE DENOMINATOR. THE SUBROUTINE 24A01930 
Cc ASSUMES PROPER SCALING OF BOTH THE INPUT NUMERATOR 24401940 
Cc AND DENOMINATOR AND WILL RETURN THE RESULTS MULTIPLIED 24A01950 
Cc BY 10000. 24A01960 
Cc 24A01970 
IRES1=INUM/ IDENOM 24A01980 
IRES2=( INUM- IRES1 * IDENOM) *10000/ IDENOM 24A01990 
IRES=IRES1 *10000+IRES2 24A02000 
RETURN 24A02010 
END 24A02020 
SUBROUTINE ALPHAA(IRHO,KO,K1,IALF) 24A02030 
Cc 24A02040 
Cc THIS MODULE IS DESIGNED TO CALCULATE ALPHA FOR 24A02050 
Cc USE IN DETERMINATION OF VOLUME CORRECTION 24A02060 
Cc FACTOR. 24A02070 
Cc 24A02080 
Cc INPUT VARIABLES 24A02090 
Cc IRHO=DENSITY*100 (KILOGRAMS/CUBIC METRE) 24A02100 
Cc KO ,K1= COEFFICIENTS OF DESIRED CURVE * 10000 24A02110 
Cc 24A02120 
Cc ALGORITHM - 24A02130 
Cc ALPHA=K0 /RHO* * 2+K1 /RHO 24A02140 
Cc 24A02150 
Cc CALCULATE K1/RHO 24A02160 
Cc 24A02170 
INUM=K1 *10000 24A02180 
CALL SDIVACINUM, IRHO, IALF1) 24A02190 
CG 24A02200 
CG CALCULATE K0O/RHO**2 24A02210 
Cc 24A02220 
INUM=K0*100 24A02230 
CALL SDIVACINUM, TRHO, TALFS) 24A02240 
CALL SDIVA(IALFS, IRHO, IALF2) 24A02250 
IALF=(IALF1+IALF2+500 )/1000 24A02260 
RETURN 24A02270 
END 24A02280 
SUBROUTINE VCF24A(IALF ,IDT,IVCF) 24A02290 
Cc 24A02300 
Cc THIS MODULE IS DESIGNED TO CALCULATE VOLUME 24A02310 
Cc CORRECTION FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE 24A02320 
Cc AS INTEGERS, THE SUBROUTINE RETURNS WITH A 8 24A02330 
Cc OR 9 DIGIT VALUE DEPENDENT UPON WHETHER IDT 24A02340 
CG IS POSITIVE OR NEGATIVE. 24A02350 
Cc 24A02360 
Cc ALGORITHM - 24A02370 
c VCF=EXP( -ALPHA*DT(1.0+0.8*ALPHA*DT ) ) 24A02380 
Cc 24A02390 
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Cc CALCULATE ALPHA*DT 24A02400 
Cc 24A02410 
ITERM1=IALF* IDT 24A02420 
c 24A02430 
Cc CALCULATE 0.8 *ALPHA *DT 24A02440 
Cc 24A02450 
ITERM2=ITERM1 /5*4 24A02460 
Cc 24A02470 
Cc CALCULATE EXPONENT -ALPHA*DT(1.0+0.8*ALPHA*DT) 24A02480 
Cc 24A02490 
CALL MPYACITERM1 , ITERM2 , ITERMS3 ) 24A02500 
IX=- (ITERM1+I1TERMG ) 24402510 
Cc 24A02520 
Cc CALCULATE EXPONENTIAL( FIRST 7 TERMS OF POWER SERIES) 24A02530 
Cc 24A02540 
ISUM1=100000000+IX 24A02550 
CALL MPYA(IX,IX, ISUM2) 24A02560 
ISUM2=ISUM2 /2 24A02570 
.CALL MPYA( 1X, ISUM2 , ISUM3 ) 24A02580 
ISUM3=ISUM3/3 24A02590 
CALL MPYA( IX, ISUM3 , ISUM4 ) 24A02600 
ISUM4=ISUN4 / 4 24A02610 
CALL MPYA( IX, ISUM4 , ISUM5 ) 24A02620 
ISUM5=ISUM5/5 24A02630 
GALL MPYAC IX, ISUM5 , ISUM6 ) 24A02640 
ISUM6=ISUM6//6 24A02650 
IVCF=ISUM1+ISUM2+1ISUM3+ISUM4+ISUM5+1SUM6 24A02660 
RETURN 24A02670 
END 24A02680 
SUBROUTINE MPYACIX,IY,1Z) 24A02690 
Cc 24A02700 
Cc THIS MODULE PERFORMS INTEGER MULTIPLICATION. THE TOTAL 24A02710 
G NUMBER OF DIGITS IN IX AND IY MUST NOT EXCEED 17. OTHER 24A02720 
Cc WISE, OVERFLOW WILL OCCUR. 24402730 
Cc 24A02740 
IU1 = IX / 10000 24A02750 
K1 = 10000 * IU1 24A02760 
Ivi = IX - K1 24A02770 
Iu2 = IY / 10000 24402780 
K2 = 10000 * IV2 24A02790 
Iv2 = IY - K2 24A02800 
K3 = IU1 * Iv2 + Iv2 * IVi + IVi * IV2 / 10000 24A02810 
IZ = (K3 + 5000) / 10000 + IUi * TU2 24A02820 
RETURN 24A02830 
END 24A02840 
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11.1.24.3 IMPLEMENTATION PROCEDURE FOR SUBROUTINE TAB24A 


in today's world there is a rapidly developing trend to use computers in 
custody transfer measurements, accounting work, process control systems, and a 
variety of other uses where tables must be incorporated into computer codes. 
Yet many of the printed tables are almost impossible to code due to the fact 
that someone has slightly modified selected values to differ from those 
obtained using the mathematical expression that supposedly generated the 
tables. To overcome this problem it is often required to add extensive excep- 
tion tables to the codes. This makes the codes large and cumbersome to modify, 
and restricts their use to larger computer systems. Also with the development 
of better measuring devices it is often possible to gain more digits of pre- 
cision in the table parameters, necessitating finer gridding of the tabular 
values, resulting in larger volumes of printed tables to be handled. 

in addition, as the on-line use of computers for metering purposes 
increases, the direct use of printed tables will decrease; therefore, the new 
Standard is an explicit implementation procedure rather than a set of equa- 
tions or a set of tables. {it must be remembered that the standardization of 
the implementation procedure implies standardization of the set of mathe- 


matical expressions used within the code. Absolute adherence to the procedure 


will help to insure that all computers and computer codes of the future, meet- 
ing the specifications and restrictions, will be able to produce the same 
results. it is believed that this procedure will allow for the maximum 


machine and code independence. The procedure was implemented in computer 
subroutines issued by API in 1980 using ANSI/ASA FORTRAN. The subroutines 
maximized precision by the use of 32-bit integer arithmetic. 

The procedure as described in the following text can, by careful and 
deliberate application of numerical analysis, be used with the majority of 
languages and word sizes in present or anticipated use. To use the standard 
procedure means to maintain absolute and unwavering adherence to the number of 
digits specified at each step and to the calculation procedure as outlined. 

In the procedure, the nomenclature used is that of ASTM E380-76, unless 
an explicit procedure is given below, in which case the procedure given below 
overrides that given by ASTM £380-76. 

In the procedure the nomenclature (XXX.XX) means five (5) mathematically 


significant digits. 
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The term rounding as used in the procedure means: Consider only the 
first digit to the right of the desired position and 
ae If that digit is greater than 4, increment the desired position by 
one and drop the remaining digits to the right of the desired posi- 
tion. 
b. If that digit is less than 5, simply drop the remaining digits to 
the right of the desired position. 


I! constants are used to exactly the number of digits printed. 
Calculation Procedure 


STEP 1: Round input variables of relative density 60/60 °F and observed tem- 
perature 
ae Round relative density 60/60 °F to the nearest 
0.0005 and carry as 5 digit result 
i.e. relative density 60/60 °F (SG60) = X.XXXX 
be Round observed temperature to the nearest 
0.1 °F and carry as 4 digit result 
i.e. observed temperature (DEGF) = XXX.X 


STEP 2: Conversion to density in Kg/m? 
define 9 = relative density 60/60 °F * 999.012 
Round p to nearest 0.01 
i.e. 9 = XXXX.XX 


STEP 3: Choose the appropriate values of Kg and K; as described in API! Stan- 
dard 2540, TABLE 24, 11.1.24 
Kg is a 7 digit constant 


ie@e Kg = XXXeXXXX 
Ky, is a 4 digit constant 
i.e. Ky = «XXXX 


STEP 4: Calculation of alpha (coefficient of thermal expansion) 
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. Ko 
a. Evaluate > 
re) 
K 
a(1) Compute 2 = .XXXXXXXX 
p 


K./p 
a(2) Compute 2 = .QOOXXXXXXX 


Ky 
b. Evaluate = 


K 
b(1) _1L = .000XXXXXXX 
p 
ce Sum results of a(2) and b(1) and round to nearest 0.0000001 
i.e. a = «QOOXXXX 


STEP 5: Caidculate At 
define At = DEGF ~- Tpase 
Note: Tpase carried to 3 digits XX.X (60.0) 
Carry At = XXXoX 


STEP 6: Calculation of VCF 
define VCF = EXP[-aAtT(1.0 + 0.80 AT) 1 
= EXP[-a At - 0.8 a2 At2] 
a. Calculation of exponent 
a(l) aAt = eXXXXXXXX 
a(2) «8a AT = eXXXXXXXX 
a(3) «8 a2 At2 = .OXXXXXXX 
a(4) -aAt - 0.8 a2 At? = O.XXXXXXXX with any trailing 
digits dropped 
b. Calculation of exponential 
VCF = EXP[-aAt - 0.8 a2 At2] = X.XXXXXX 
using at least the first 7 terms of the power series expansion 


of eX 
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Computational _ 


also OF Aer O.XXXXX rounded to nearest 0.00001 if VCF < 1 


| 1.XXXX rounded to nearest 0.0001 if VCF > 1 


Table value 


of VCF XeXXXX rounded VCF to nearest 0.0001 


The 1980 integer FORTRAN code issued by API contained both an integer 
division and an integer multiplication algorithm. A description of each is 
contained in the fol lowing: 


INTEGER MULTIPLICATION PROCEDURE 
(FOR 32 BIT ARITHMETIC) 


DATA DEFINITION 


X, Y are integer numbers that are equal to or less than 2 * 109 
(slightly less than 231), A larger value may cause overflow. In addition, 
the total number of digits in X and Y must not exceed 17, otherwise overflow 
will occur. 

Z is the product XY scaled by 1078, i.e. Z = xY/108, 

Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically, at least 15 digits are 
needed to obtain 6 digit precision, 16 for 7 and 17 for 8. 

The largest values of X and Y that may be used are 2 000 000 000 and 
99 999 999. 

CALCULATION 


X/10000 = Uy 
10000 U, = Ky 
X-K, =Vq 
¥/10000 = Uy 
10000 Uz = Kz 
Y-Kp = Vo 


(UzV2) + (U2V1) + (V1V2/10000) = Kz 

(Kz + 5000)/10000 + (UyUs) = Z 

Note: Z has been scaled by 1078 and may have to be rescaled before use. 
TOTAL DIGITS IN X AND Y 12 13 14 #15 16 «17 


DIGITS IN PRODUCT, Z 3-4 4-5 5-6 6-7 7-8 8-9 
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INTEGER DIVISION PROCEDURE 
(FOR 32 BIT ARITHMETIC) 


DATA DEFINITION 


X, Y are integer numbers such that X is equal to or less than 232 - | 


and Y is of order of magnitude 104 less than X. 


R is the quotient of 2 scaled by 104, ices R= >* 104, 


Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically the more digits that are 
carried in both X and Y, the more accurate digits on output. 

CALCULATION 


X/Y = Uy 
UY = Ky 
tee ae | 
Vi/Y = U2 


U, * 10000 + Up = R 


Note: R has been scaled by 104 and may have to be rescaled before use. 


Examples For Checkout 


The following examples are designed to aid in checkout procedures for 
both the existing API subroutine and any subroutines which are developed using 
the implementation procedure outlined above. The lines of the examples are 
numbered to correspond to the corresponding lines within the calculation pro- 


cedure. 


EXAMPLE 1: Assume a crude oi! with an input relative density 60/60 °F of 
0.9054 and an observed temperature of 105.03 °F. Calculate the 
VCF required to correct the volume to 60 °F, correct to 4 decimal 
digits. 


STEP 1: a. rounded SG60 0.9055 
b. rounded DEGF = 105.0 


STEP 2: rounded to nearest 0.01 Kg/m? 
p = 904.61 
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STEP 3: Kg = 341.0957 (as of May 1, 1980) 
Ki = 0.0 (as of May 1, 1980) 


K 
STEP 4: a. Evaluate = 
p 


K 
a(1) QO = 0.37706381 


p 


K../p 
a(2) 0." = 0.0004168247 
i) 
K 
b. Evaluate suk 


b(1) —L = 0.0 
p 


Cc. @ = 0.0004168 
STEP 5: At = 45.0 


STEP 6: Calculation of VCF 
ae Calculation of exponent 
a(t) 0.01875600 
a(2) 0.01500480 
a(3) 0.00028143 
a(4) -0.01903743 
be Calculation of exponential 
VCF = 0.981142 
VCF correct to 4 decimal digits = 0.9811 


EXAMPLE 2: Assume a crude oi! with an input relative density 60/60 °F of 
0.7795 and an observed temperature of 39.1 °F. Calculate the VCF 
required to correct the volume to 60 °F, correct to 5 significant 


figures. 


STEP 1: ae rounded SG60 = 0.7795 
be rounded DEGF = 39.1 
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STEP 2: rounded to nearest 0.01 Kg/m> 


p = 778.73 
STEP 3: Kg = 341.0957 (as of May 1, 1980) 
K, = 0.0 (as of May 1, 1980) 


K 
STEP 4: a. Evaluate 2 
ue 


K 
a(t) 0 = 0.43801535 
p 


Ky/e 

a(2) “uw = 0.0005624740 
K 

be Evaluate 


K 
b(1) Lb = 0.0 


ce @ = 0.0005625 
STEP 5: At = -20.9 


STEP 6: Calculation of VCF 

ae Calculation of exponent 
a(t) -0.01175625 
a(2) -0.00940500 
a(3) 0.00011056 
a(4) 0.01164569 

b. Calculation of exponential 
VCF = 1.011713 


VCF correct to 5 significant figures 1.0117 
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EXAMPLE 3: Assume a crude oi! with an input relative density 60/60 °F of 
1.0093 and an observed temperature of 269.4 °F. Calculate the 
VCF required to correct the volume to 60 °F, correct to 5 signif- 


icant figures. 


1.0095 
269.4 


STEP 1: ae rounded SG60 
b. rounded DEGF 


STEP 2: rounded to nearest 0.01 Kg/m? 


po = 1008.50 
STEP 3: Kg = 341.0957 (as of May 1, 1980) 
K, = 0.0 (as of May 1, 1980) 


K 
STEP 4: a. Evaluate 0 


PY 
K 
a(1) 2 = 0.33822082 
re) 
Ka/p 
a(2) 0 = 0.0003353702 
p 


K 
b. Evaluate —! 


STEP 5: At = 209.4 


STEP 6: Calculation of VCF 
ae Calculation of exponent 
a(t) 0.07023276 
a(2) 0.05618620 
a(3) 0.00394611 
a(4) -0.07417887 
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X-239 


bs. Calculation of exponential 


VCF = .928505 


VCF correct to 5 significant figures = 0.92851 


11.1.24.4 TABLE 248B—GENERALIZED PROD- 
UCTS, CORRECTION OF VOLUME TO 
60°F AGAINST RELATIVE DENSITY 
60/60°F 


TABLE 24B gives volume correction factors for con- 
verting product volumes observed at temperatures 
other than 60°F to corresponding volumes at 60°F. 

The volume correction factors given in this table are 
the result of a computer procedure which is the Stan- 
dard (see 11.1.24.5 and 11.1.24.6). All of these volumes 
are at saturation conditions. Pressure corrections from 
saturation are not included. 


The temperature ranges of this table are: 
Relative Density 60/60°F °F 


0.8250 to 1.0760 0 to 300 
0.7795 to 0.8250 0 to 250 
0.6535 to 0.7795 0 to 200 


The volume correction factors given in this table are 
based on data from the U.S. National Bureau of Stan- 
dards and from other published data. Portions of the 
temperature ranges represent areas beyond these data. 
Thus, mathematical techniques were employed to ex- 
trapolate beyond the temperature ranges of the given 
data to determine the volume correction factor for these 
areas. These factors are denoted by an asterisk (*). 
Extension of this table beyond the ranges shown is not 
recommended. 


Increments used in this table for determining volume 
correction factors are 0.5°F and 0.0020 relative density. 
Interpolation between either temperature or relative 
density is not intended since there is no practical meth- 
od of interpolation that will produce the accuracy ob- 
tainable from the Standard. 


This table must be entered with a known rela- 
tive density 60/60°F and with an observed tem- 
perature. 


11.1.24.5 PROGRAM DOCUMENTATION FOR SUBROUTINE TAB24B— 
GENERALIZED PRODUCTS, CORRECTION OF VOLUME TO 60°F 


AGAINST RELATIVE DENSITY 60/60°F 


The thermal expansion properties (volume correction factors, VCF's) for 


products (excluding lube stocks) and crudes are correlated in two separate 


generalized tables as a function of temperature and relative density 60/60 °F. 


The predicted precision at 95% confidence is: 


VCF Precision at 95% Confidence, 4% 


Temperature 


Crudes & Products 


100 °F 
+0.05 


150 °F 200 °F 250 °F 
015 225 235 


if this precision is unacceptable, it is recommended that the actual thermal 


expansion properties of the substance be measured and the VCF be determined 
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using TABLE 24C with either K or alpha values derived from the measured data. 


The instructions for this procedure are given in TABLE 24C. 


ABSTRACT 


Subroutine Title: TAB24B - TABLE 24B, Generalized Products, 


Volume Correction to 60 °F. 


Description: This subroutine is designed to calculate the 
volume correction factor required to convert 
a volume at an observed temperature to the 
corresponding volume at 60 °F assuming the 


substance can be characterized as a product. 


Program Responsibility: American Petroleum Institute 
Measurement Coordination 
2101 L Street, N.W. 
Washington, D.C. 20037 


Date Issued: August 1980 
Language: FORTRAN, ANSI/ASA Standard 
Reference: AP! Standard 2540, TABLE 24, 11.1.24 


THIS SUBROUTINE WAS DEVELOPED USING THE MATHEMATICAL ALGORITHMS 
AND SPECIFICATIONS DESCRIBED IN THE DOCUMENT PROCEDURE 11.1.24.6. 
ANY MODIFICATIONS TO THIS SUBROUTINE MUST RIGIDLY ADHERE 
TO THE SAME ALGORITHMS AND SPECIFICATIONS. 


11.1.24.5.1 Introduction 


TAB24B is a computer subroutine designed to caiculate the volume cor- 
rection factor (VCF) necessary to convert a volume of a generalized product at 


a specified temperature in degrees Fahrenheit (°F) and of a relative density 
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60/60 °F to the equivalent volume at 60 °F. The subroutine accepts as input 
the relative density at 60/60 °F rounded to the nearest 0.0005 and the observed 
temperature rounded to the nearest 0.1 °F. If either input value has not been 
properly rounded, the subroutine wil! round the values and return the correc- 
ted values. The subroutine returns one value of VCF with 5 significant fig- 
ures of accuracy for computation purposes and another VCF value rounded to 

four decimal! places for printing purposes. The subroutine also outputs a 
status code for user convenience. The code is set to -1 if an error condition 
occurs and to +1 if the input values are outside the limits of the correlation. 
A status code of zero is returned if the input values are within the limits of 
the correlation. The limits of the correlation including the extrapolated 
region are depicted in Figure X-13. The calling program must check the flag and 


provide the user with appropriate warning messages or program termination. 


11.1.24.5.2 Subroutine Specifications 


The range of application: Relative Density 60/60 °F Temperature, °F 
0.6535 to 0.7795 0.0 to 200.0 
0.7800 to 0.8250 0.0 to 250.0 
0.8255 to 1.0760 0.0 to 300.0 

Referenced modules: ALPHAB, VCF24B, SDIVB, MPYB 

FORTRAN functions: FLOAT 

Average execution time: 1790 VCF entries/CPU second 

1BM 370/168 


The subroutines are written in ANSI/ASA FORTRAN using integer arithmetic. The 


size and storage requirements are: 


1. Compilable source statements 136 
2. Decimal storage bytes 3054 
3. Words 764 
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11.1.24.5.3 Calling Sequence 


CALL TAB24B (SG60, DEGF, VCFC, VCFP, IFLAG) 


INPUT DESCRIPTION 


SG60 - Relative density at 60/60 °F 
(SG6O returned will be rounded to nearest 0.0005) 


DEGF - Observed temperature, °F 
(DEGF returned wi!! be rounded to nearest 0.1 °F) 


QUTPUT DESCRIPTION 


VCFC - Qutput YCF rounded to 5 significant figures for computational 
purposes 
i.e. VCFC = 1.XXXX 
or VCFC = O.XXXXX 
VCFP - Output VCF rounded to 4 decimal places for printing purposes 


i.e. VCFP = 1.XXXX 
or VCFP = 0.XXXX 


IFLAG - Status Code 


O: Indicates input variables are within the range of applica- 


tion. 


1: Input data outside limits of correlation as given in 


11.1.24. 


-1: Indicates input SG60 or input DEGF outside range of appli- 
cation as given in 11.1.24; VCFC and VCFP set to -1.0000. 
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11.1.24.5.4 Method of Calculation 


The subroutine evaluates the equation 


VCF = EXPI= O69 AT(1.0 + 0.8 %69 At) ] 


where At = DEGF - 60.0 
Ko Ky 
a = ——_ + 
60 02 60 
60 
be = relative density 60/60 °F * 999.012 


999.012 = density of water at 60 °F, Kg/m? 


A full explanation of the equations and the parameters Kg and Kj may be 
found in API Standard 2540, TABLE 24, 11.1.24. 


11.1.24.5.5 Examples 


These examples are tutorial in nature and are not intended to be sufficient 
for subroutine checkout. The examples given in procedure 11.1.24.6 are to be 


used for the computer checkout. 


Example 1 
SG60 = 0.8396 
DEGF = 90.47 
CALL TAB24B (SG60, DEGF, VCFC, VCFP, IFLAG) 
After the call: SG60 = 0.8395 


DEGF = 90.5 
VCFC = .98561 
VCFP = .9856 
IFLAG = 0 
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Example 2 
SG6O0 = 0.8899 


DEGF = 270.0 
CALL TAB24B (SG60, DEGF, VCFC, VCFP, IFLAG) 
After the cal!: SG60 = 0.8900 
DEGF = 270.0 
VCFC = .90658 
VCFP = .9066 
IFLAG = 1 
Example 3 


SG60 = 0.7660 
DEGF = 500.0 
CALL TAB24B (SG60, DEGF, VCFC, VCFP, IFLAG) 


After the call: SG60 = 0.7660 
DEGF = 500.0 
VCFC = -1.0000 
VCFP = -1.0000 
[FLAG = -1 
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11.1.24.5.6 FLOWCHART 


INPUT: RELATIVE DENSITY 60/60°F 
OBSERVED TEMPERATURE 


ROUND INPUT DATA 
TO SPECIFICATION 


CHECK 
TO SEE IF 
DATA WITHIN 
BOUNDS OF 
TABLE 


Ne SET VCF = -1.0000 
ERROR FLAG IERR = -1 


RETURN 


YES 


CHOOSE APPROPRIATE 
VALUES OF Ko AND K, 


CALCULATE RHO 
CALCULATE ALPHA 
CALCULATE VCF 


CHECK 
TO SEE - 
tS DATA IN 
EXTRAPOLATED 
REGION? 


NO YES 


SET ERROR 
FLAG = 1 


SET ERROR 
FLAG = 0 


RETURN 
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11.1.24.5.7 Subroutine Listing 


TAB24B 


This subroutine actually serves as the input/output rou- 
tine to the subsequent modules necessary in the calcula- 


+ion of volume correction factor from relative density at 


60/60 °F and observed temperature. 


Referenced Modules 


ALPHAB This module is designed to calculate alpha for use in 


determination of volume correction factor. 


MPYB This module performs integer multiplication with a maxi- 


mum of 17 digits. 


SDIVB This module is designed to produce additional accuracy 


from an integer divide where the numerator is 10000 


greater than the denominator. 


VCF24B This module is designed to calculate volume correction 


factor. 


SUBROUTINE TAB24B(SG60, DEGF,VCFC,VCFP, IFLAG) 24B00010 
24B00020 

(C)COPYRIGHT 1980 24B00030 
AMERICAN PETROLEUM INSTITUTE 24B00040 
ALL RIGHTS RESERVED 24B00050 
24B00060 

THIS SUBROUTINE IS A VOLUNTARY STANDARD AND WAS DEVELOPED 24B00070 
UNDER THE AUSPICES OF THE JOINT API-ASTM COMMITTEE ON STATIC 24B00080 
PETROLEUM MEASUREMENT IN PART FROM DATA GENERATED 24800090 
BY A PROJECT FUNDED BY THE AMERICAN PETROLEUM 24B00100 
INSTITUTE AT THE U.S. NATIONAL BUREAU OF STANDARDS, 24B00110 
GAITHERSBURG, MARYLAND. 24B00120 
24B00130 

INQUIRIES CONCERNING ITS APPLICATION SHOULD 24B00140 
BE ADDRESSED TO: 24B00150 
AMERICAN PETROLEUM INSTITUTE 24B00160 

MEASUREMENT COORDINATION 24B00170 

2101 L STREET, N.W. 24B00180 

WASHINGTON, DC 20037 24B00190 


oR oReke Rok enon ohene non enone eonenen®) 
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He EO Ne SE ae ke aie aie oie aie ok ake oe ols ae ae ae ae Oe oe ae Bee eae ate Be Ae Me ae Me ale ale aye ak ate ale ale ale ae me aie ake ae ate ois ok ake ok ok ok ae ole ake ok ae ok ie 


te co 
* THIS SUBROUTINE OR THE MATHEMATICAL RELATIONSHIPS = 
# REPRESENTED THEREBY MAY BE USED BY ANYONE WISHING * 
i TO DO SO, BUT THE AMERICAN PETROLEUM INSTITUTE, me 
. THE AMERICAN SOCIETY FOR TESTING AND MATERIALS, * 
AND THE INSTITUTE OF PETROLEUM AND THEIR # 
® RESPECTIVE MEMBERS AND THE U.S. NATIONAL BUREAU ‘ 
: OF STANDARDS, SHALL NOT BE HELD RESPONSIBLE OR * 
* LIABLE IN ANY WAY FROM LOSS OR DAMAGE, INCLUDING, ‘i 
: BUT NOT LIMITED TO, CONSEQUENTIAL DAMAGE, * 
i RESULTING FROM SUCH USAGE OR FOR VIOLATION OF * 
e ANY FEDERAL, STATE, OR MUNICIPAL LAWS, REGULATIONS = 
: OR PRACTICES OF THE UNITED STATES OR OF ANY * 
7 FOREIGN COUNTRY. % 
Eg ae 
x we 


Me ke ee oie ae ale oe Bee Ne He le ae aie oe ne He ole ale ole ae ok ae ake ate ake oe ak ake ae aie ake ake oye ale fe ae afc ois ake oe ae de oe ale Ae ok oe oe ae ake oe ae oe ok oe ok 


THE THERMAL EXPANSION PROPERTIES (VOLUME CORRECTION FACTORS, 
VCFS) FOR PRODUCTS (EXCLUDING LUBE STOCKS) AND CRUDES 

ARE CORRELATED IN TWO SEPARATE, GENERALIZED TABLES 

AS A FUNCTION OF TEMPERATURE AND RELATIVE DENSITY 60/60 F. 
THE PREDICTED PRECISION AT 95 PERCENT CONFIDENCE IS: 


VCF PRECISION AT 95 PERCENT CONFIDENCE, PERCENT 


TEMPERATURE 100F 150F 200F 250F 
CRUDES, PRODUCTS 0.05 0.15 0.25 0.35 


IF THIS PRECISION IS UNACCEPTABLE, IT IS RECOMMENDED 
THAT THE ACTUAL THERMAL EXPANSION PROPERTIES OF THE 
SUBSTANCE BE MEASURED AND THE VCF BE DETERMINED 

USING TABLE 24C WITH EITHER K OR ALPHA VALUES DERIVED 
FROM THE MEASURED DATA. THE INSTRUCTIONS FOR THIS 
PROCEDURE ARE GIVEN IN TABLE 24C. 


THIS SUBROUTINE IS DESIGNED TO ACCEPT AS 

INPUT RELATIVE DENSITY 60/60 F(SG60) AND 

OBSERVED TEMPERATURE IN DEGREES FAHRENHEIT(DEGF) AND 
PRODUCE THE VOLUME CORRECTION FACTOR(VCF) FOR 

API TABLE 24B, GENERALIZED PRODUCTS 

VOLUME CORRECTION TO 60 F. 


THIS SUBROUTINE CALLS THE FOLLOWING MODULES 
ALPHAB (CALLS SDIVB) 
MPYB 
SDIVB 
VCF24B (CALLS MPYB) 


SG60 SHOULD BE PASSED ROUNDED TO THE NEAREST 
0.0005. THE SUBROUTINE WILL HOWEVER ROUND THE 
VALUE AND RETURN THE CORRECTED VALUE. 


DEGF SHOULD BE PASSED IN THE NEAREST TENTH 
OF DEGREE FAHRENHEIT. THE SUBROUTINE WILL HOWEVER 
ROUND THE VALUE AND RETURN THE CORRECTED VALUE. 


OODAQDDMDAAGQGQ GND NGM NMNM AON MOMOMNMaMNNMNAMNAMNANKMNNMaGananMaONaMOMNMn0MOKHonoanNKgaNgM9A9nn00o9000o 
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24B00200 
24B00210 
24B00220 
24B00230 
24B00240 
24B00250 
24B00260 
24B00270 
24B00280 
24B00290 
24B00300 
24B00310 
24B00320 
24B00330 
24B00340 
24B00350 
24B00360 
24B00370 
24B00380 
24B00390 
24B00400 
24800410 
24B00420 
24B00430 
24B00440 
24B00450 
24B00460 
24B00470 
24B00480 
24B00490 
24B00500 
24B00510 
24B00520 
24B00530 
24B00540 
24B00550 
24B00560 
24B00570 
24B00580 
24B00590 
24B00600 
24B00610 
24B00620 
24B00630 
24B00640 
24B00650 
24B00660 
24B00670 
24B00680 
24B00690 
24B00700 
24B00710 
24800720 
24B00730 
24B00740 
24B00750 
24B00760 
24B00770 
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VCFC IS THE RETURNED VOLUME CORRECTION FACTOR 
CORRECT TO FIVE(S) SIGNIFICANT FIGURES. 


VCFP IS THE RETURNED VOLUME CORRECTION FACTOR 
CORRECT TO FOUR(4) DECIMAL DIGITS. 


IFLAG IS THE ROUNDED STATUS CODE WHICH SHOULD 
BE CHECKED BY THE USER IN THE CALLING PROGRAM 
=0 NO ERROR 
=1 INPUT DATA WITHIN EXTRAPOLATION RANGES AS 
GIVEN IN API 2540, TABLE 24,11.1.24 
=-1 INPUT DATA OUTSIDE SPECIFIED RANGE OF 
APPLICATION AS GIVEN IN API 2640, 
TABLE 24,11.1,24 


OOOONNAAANINDAIANNO 


DATA NBP1 ,NBP2,NBP3 ,NBP4/7710, 7885 ,8400,10760/ 
DATA IBP1 , IBP2/7790, 8250/ 

DATA ITMP1, ITMP2 , ITMP3/ 2000, 2500, 3000/ 

DATA IEP1,IEP2,IEP3/1500,2000,2500/ 

DATA IBT1/0/ 

DATA IBAS/600/ 

DATA IFSG/6535/ 


COEFFICIENTS FOR DIESELS, HEATING OILS AND FUEL OILS 
DATA KOF ,K1F/1038720,2701/ 


COEFFICIENTS FOR JET FUELS, KEROSENES, AND SOLVENTS 


a00 aQAaND 


DATA KOJ,K1J/3303010,0/ 

COEFFICIENTS FOR TRANSITION BETWEEN JETS AND GASOLINES 
DATA KOT ,K1T/14890670, -186840/ 

COEFFICIENTS FOR GASOLINES AND NAPHTHENES 


DATA K0G,K1G/1924571 , 2438/ 


oO 9700 aa0 


VCFP=- 1.0000 
VCFC=- 1.0000 
IFLAG=- 1 


ROUND INPUT PARAMETERS 


Qo00 


ISG=(SG60*100000.0+25.0)/50.0 
ISG=1SG*5 

SG60=FLOAT (ISG)/10000. 
ITEMP=DEGF*10.0+0.5 
DEGF=FLOAT(ITEMP)/10.0 
IDT=ITEMP-IBAS 


CHECK SPECIFIC GRAVITY RANGES 


oOaQq 


IF (ISG-IFSG)10,20, 20 
10 CONTINUE 
RETURN 
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24B00780 
24B00790 
24B00800 
24B00810 
24B00820 
24B00830 
24B00840 
24B00850 
24B00860 
24800870 
24B00880 
24B00890 
24B00900 
24B00910 
24B00920 
24B00930 
24B00940 
24B00950 
24B00960 
24B00970 
24B00980 
24B00990 
24B01000 
24B01010 
24B01020 
24B01030 
24B01040 
24B01050 
24B01060 
24B01070 
24B01080 
24B01090 
24B01100 
24B01110 
24B01120 
24B01130 
24B01140 
24B01150 
24B01160 
24B01170 
24B01180 
24B01190 
24B01200 
24B01210 
24B01220 
24B01230 
24B01240 
24B01250 
24B01260 
24B01270 
24B01280 
24B01290 
24B01300 
24B01310 
24B01320 
24B01330 
24B01340 
24B01350 


aad 


100 
110 
120 
130 
140 
150 


aaaggg 


a0 0 


aao0 


155 


aqaaqg”g 
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DEFINE CURVE COEFFICIENTS 


IF(ISG-NBP1)30,40,40 
KO0=KOG 

K1=K1G 

GO TO 80 

IF (ISG-NBP2)50, 50,60 
KO=KOT 

K1=K1T 

GO TO 80 

IF (ISG-NBP3)70, 75,75 
KO=KOJ 

Ki=K1J 

GO TO 80 

IF (ISG-NBP4)78,78,10 
KO=KOF 

K1=K1F 

CONT INUE 


CHECK VALID TEMPERATURE RANGES 


IF(ITEMP)90,100,100 

CONT INUE 

RETURN 

IF (ISG-IBP1)110,110,120 
IF(ITEMP-ITMP1 )150,150,90 
IF (ISG-IBP2)130,130,140 
IF (ITEMP-ITMP2)150,150,90 
IF(ITEMP-ITMP3)150,150,90 
CONTINUE 


CONVERT RELATIVE DENSITY 60/60 F TO DENSITY 
IY - DENSITY OF WATER = 999.012 KG/M**3 


IX=ISG* 1000 
IY=9990120 

CALL MPYB(IX,1Y, IDEN) 
IDEN=(IDEN+5 )/10 
IRHO=IDEN 


CALCULATE ALPHA 
IF(KO.NE.KOT)GO TO 155 
CALCULATE ALPHA IN TRANSITION ZONE 


CALL SDIVB(KO, IRHO, TIRES) 
IRES=IRES*10 

CALL SDIVB(IRES, IRHO, IALF1 ) 
TALF1=(IALF1+5)/10 
IALF=(TALF1+K1+5)/10 

GO TO 158 

CALL ALPHAB( IRHO,KO,K1,IALF) 


CALCULATE VCF 
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24B01360 
24B01370 
24B01380 
24B01390 
24B01400 
24B01410 
24B01420 
24B01430 
24B01440 
24B01450 
24B01460 
24B01470 
24B01480 
24B01490 
24B01500 
24B01510 
24B01520 
24B01530 
24B01540 
24B01550 
24B01560 
24B01570 
24B01580 
24B01590 
24B01600 
24B01610 
24B01620 
24801630 
24B01640 
24B01650 
24B01660 
24801670 
24B01680 
24B01690 
24B01700 
24801710 
24B01720 
24B01730 
24801740 
24B01750 
24B01760 
24B01770 
24B01780 
24B01790 
24B01800 
24801810 
24B01820 
24B01830 
24B01840 
24B01850 
24B01860 
24B01870 
24B01880 
24B01890 
24B01900 
24B01910 
24B01920 
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158 CONTINUE 
CALL VCF24B(IALF ,IDT, IVCF) 
IFLAG=0 


aan 


CHECK TO DETERMINE IF IN EXTRAPOLATED REGION 


IF(ISG-IBP1)160,160,170 
160 IF(ITEMP-IEP1)200, 200,165 
165 IFLAG=1 

GO TO 200 
170 IF(ISG-IBP2)180,180,190 
180 IF(ITEMP-IEP2)200, 200,165 
190 IF(ITEMP-IEP3)200, 200,165 
200 CONTINUE 


oOoaoaog 


CALCULATE PRINT AND CALCULATION VALUES OF VCF 
PRINT VALUE(PVCF) ROUNDED TO 4 DECIMAL DIGITS 
CALCULATION VALUE(CVCF) ROUNDED TO 5 SIGNIFICANT DIGITS 


JVCF=(IVCF/1000+5)/10 

PVCF=JVCF 

PVCF=PVCF/10000. 

IF ( IVCF-100000000)210,220, 220 
210 CONTINUE 


aa 0 


VCF LESS THAN ONE, FIVE DECIMALS RETURNED 


JVCF=(IVCF/100+5 )/10 
CVCF=JVCF 


CVCF=CVCF/100000. 


GO TO 250 
220 CONTINUE 
CVCF=PVCF 
250 CONTINUE 
VCGFC=CVCF 
VCFP=PVCF 


RETURN 


END 


SUBROUTINE SDIVB(INUM, IDENOM, TIRES) 


oOaanaagand0ndgd 


THIS MODULE IS DESIGNED TO PRODUCE ADDITIONAL 

AGCURACY FROM AN INTEGER DIVIDE WHERE THE NUMERATOR 

IS 10000 GREATER THAN THE DENOMINATOR. THE SUBROUTINE 
ASSUMES PROPER SCALING OF BOTH THE INPUT NUMERATOR 

AND DENOMINATOR AND WILL RETURN THE RESULTS MULTIPLIED 
BY 10000. 


IRES1=INUM/ IDENOM 
IRES2=( INUM- IRES1 * IDENOM) *10000/ IDENOM 
IRES=IRES1 *10000+IRES2 


RETURN 


END 
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24B01930 
24B01940 
24B01950 
24B01960 
24B01970 
24B01980 
24B01990 
24B02000 
24B02010 
24B02020 
24B02030 
24B02040 
24B02050 
24B02060 
24B02070 
24B02080 
24B02090 
24B02100 
24B02110 
24B02120 
24B02130 
24B02140 
24B02150 
24B02160 
24B02170 
24B02180 
24B02190 
24B02200 
24B02210 
24B02220 
24B02230 
24B02240 
24B02250 
24B02260 
24B02270 
24B02280 
24B02290 
24B02300 


24B02310 
24B02320 
24B02330 
24B02340 
24B02350 
24B02360 
24B02370 
24B02380 
24B02390 
24B02400 
24B02410 
24B02420 
24B02430 
24B02440 
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SUBROUTINE ALPHAB(IRHO,KO,K1,IALF) 24B02450 
Cc 24B02460 
c THIS MODULE IS DESIGNED TO CALCULATE ALPHA FOR 24B02470 
Cc USE IN DETERMINATION OF VOLUME CORRECTION 24B02480 
Cc FACTOR. 24B02490 
G 24B02500 
Cc INPUT VARIABLES 24B02510 
Cc IRHO=DENSITY*100 (KILOGRAMS/CUBIC METRE) 24B02520 
Cc KO,K1i= COEFFICIENTS OF DESIRED CURVE * 10000 24B02530 
Cc 24B02540 
Cc ALGORITHM - 24B02550 
Cc ALPHA=KO / RHO* * 2+K1 /RHO 24B02560 
Cc 24B02570 
Cc CALCULATE K1i/RHO 24B02580 
Cc 24B02590 
INUM=K1 * 10000 24B02600 
CALL SDIVB(INUM, IRHO, IALF1 ) 24B02610 
Cc 24B02620 
Cc CALCULATE KO /RHO**2 24B02630 
Cc 24B02640 
INUM=K0*100 24B02650 
CALL SDIVB(INUM, IRHO, IALFS) 24B02660 
CALL SDIVB(IALFS, IRHO, IALF2) 24B02670 
IALF=(IALF1+IALF2+500 )/1000 24B02680 
RETURN 24B02690 
END 24B02700 
SUBROUTINE VCF24B(IALF,IDT,IVCF) 24B02710 
Cc 24B02720 
Cc THIS MODULE IS DESIGNED TO CALCULATE VOLUME 24B02730 
Cc CORRECTION FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE 24B02740 
Cc AS INTEGERS, THE SUBROUTINE RETURNS WITH A 8 24B02750 
C OR 9 DIGIT VALUE DEPENDENT UPON WHETHER IDT 24B02760 
c IS POSITIVE OR NEGATIVE. 24B02770 
Cc 24B02780 
c ALGORITHM - 24B02790 
Cc VCF=EXP ( -ALPHA*DT (1 .0+0.8*ALPHA*DT ) ) 24B02800 
Cc 24B02810 
Cc CALCULATE ALPHA*DT 24B02820 
CG 24B02830 
ITERM1=IALF*IDT 24802840 
G 24B02850 
Cc CALCULATE 0.8 *ALPHA *DT 24B02860 
Cc 24802870 
ITERM2=ITERM1 /5*4 24B02880 
Cc 24B02890 
Cc CALCULATE EXPONENT -ALPHA*DT(1.0+0.8*ALPHA*DT ) 24B02900 
Cc 24B02910 
CALL MPYB(ITERM1 , ITERM2, ITERM3) 24B02920 
IX=- CITERM1+ITERMS ) 24B02930 
Cc 24B02940 
Cc CALCULATE EXPONENTIAL(FIRST 7 TERMS OF POWER SERIES) 24B02950 
ISUM2=ISUM2/2 24B02960 
c 24B02970 
ISUM1=100000000+IX 24B02980 
CALL MPYB( IX, IX, ISUM2) 24B02990 
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ISUM2=ISUM2 /2 24B03000 
CALL MPYB( IX, ISUM2 , ISUM3 ) 24B03010 
ISUM3=ISUM3/3 24B03020 
CALL MPYB( IX, ISUM3 , ISUM4 ) 24B03030 
ISUM4=ISUM4 /4 24B03040 
CALL MPYB( IX, ISUM4 , ISUM5 ) 24B03050 
ISUM5=I1SUM5 /5 24B03060 
CALL MPYB( IX, ISUMS5 , ISUME ) 24B03070 
ISUM6=ISUM6 /6 24B03080 
IVCF=ISUM1+ISUM2+ISUM3+1ISUM4+ISUM5+ISUM6 24B03090 
RETURN 24B03100 
END 24B03110 
SUBROUTINE MPYB(IX,IY,1IZ) 24B03120 
Cc 24B03130 
Cc THIS MODULE PERFORMS INTEGER MULTIPLICATION. THE TOTAL 24B03140 
Cc NUMBER OF DIGITS IN IX AND IY MUST NOT EXCEED 17. OTHER 24B03150 
CG WISE, OVERFLOW WILL OCCUR. 24B03160 
Cc 24B03170 
Iu1 = IX / 10000 24B03180 
K1 = 10000 * Iv 24B03190 
IV1 = IX - Kl 24B03200 
IU2 = IY / 10000 24B03210 
K2 = 10000 * IU2 24B03220 
IV2 = IY - K2 24B03230 
K3 = IU1 * IV2 + Iv2 * IV1 + IV1 * IV2 / 10000 24B03240 
IZ = (K3 + 5000) / 10000 + IU1t * IvU2 24B03250 
RETURN 24B03260 
END 24B03270 


11.1.24.6 IMPLEMENTATION PROCEDURE FOR SUBROUTINE TAB24B 


In today's world there is a rapidly developing trend to use computers in 
custody transfer measurements, accounting work, process control systems, and a 
variety of other uses where tables must be incorporated into computer codes. 
Yet many of the printed tables are almost impossible to code due to the fact 
that someone has slightly modified selected values to differ from those 
obtained using the mathematical expression that supposedly generated the 
tables. To overcome this problem it is often required to add extensive excep- 
tion tables to the codes. This makes the codes large and cumbersome to modify, 
and restricts their use to larger computer systems. Also with the development 
of better measuring devices it is often possible to gain more digits of preci- 
sion in the table parameters, necessitating finer grid of the tabular values, 
resuiting in larger volumes of printed tables to be handled. 

In addition, as the on-line use of computers for metering purposes 


increases, the direct use of printed tables will decrease; therefore, the new 
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Standard is an explicit implementation procedure rather than a set of equa- 
tions or a set of tables. It must be remembered that the standardization of 
the implementation procedure implies standardization of the set of mathe- 


matical expressions used within the code. Absolute adherence to the procedure 


will help to insure that all computers and computer codes of the future, meet- 
ing the specifications and restrictions, will be able to produce the same 
results. it is believed that this procedure will allow for the maximum 


machine and code independence. The procedure was implemented in computer 
subroutines issued by API in 1980 using ANSI/ASA FORTRAN. The subroutines 
maximized precision by the use of 32-bit integer arithmetic. 

The procedure as described in the following text can, by careful and 
deliberate application of numerical anatysis, be used with the majority of 
languages and word sizes in present or anticipated use. To use the standard 
procedure means to maintain absolute and unwavering adherence to the number of 
digits specified at each step and to the calculation procedure as outlined. 

In the procedure, the nomenclature used is that of ASTM E380-76, unless 
an explicit procedure is given below, in which case the procedure given below 
overrides that given by ASTM E380-76. 

In the procedure the nomenclature (XXX.XX) means five (5) mathematical ly 


significant digits. 
The term rounding as used in the procedure means: Consider only the 


first digit to the right of the desired position and 
ae If that digit is greater than 4, increment the desired position by 
one and drop the remaining digits to the right of the desired posi- 
tion. 
b. If that digit is less than 5, simply drop the remaining digits to 
the right of the desired position. 


1! constants are used to exactly the number of digits printed. 


Calculation Procedure 


STEP 1: Round input variables of relative density 60/60 °F and observed tem- 
perature 
a. Round relative density 60/60 °F to the nearest 
0.0005 and carry as 5 digit result 
i.e. relative density 60/60 °F (SG60) = X.XXXX 
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be Round observed temperature to the nearest 


0.1 °F and carry as 4 digit result 


i+. observed temperature (DEGF) = XXX.X 


STEP 2: Conversion to density in Kg/m? 
= relative density 60/60 °F * 999.012 


define 9 = 
Round op to nearest 0.01 
i.e. 0 = XXXX.XX 


Choose the appropriate values of Kg and Kj as described in AP! Stan- 


dard 2540, TABLE 24, 11.1.24 
Kg is a 7 digit constant 


STEP 3: 


ise. Kg = XXXeXXXX 
K, is a 4 digit constant 
ieGe Ky = .XXXX 


STEP 4: Calculation of alpha (coefficient of thermal expansion) 


if input relative density 60/60 °F < 0.7710 or 
input relative density 60/60 °F > 0.7885 


J. 


K K 
define a= 2. + aul 
2 p 
p 
Ko 
ae Evaluate — 
02 
K 
a(1) Compute _O = .XXXXXXXX 
) 


K/ 
OF = QOOXXXXXXX 


Ky 
b. Evaluate — 
p 


K 
b(1) _ = .O00XXXXXxXx 
0 


Sum results of a(2) and b(1) and round to nearest 0.0000001 
ise. a = sOO00XXXX 


Ce 
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[}. If input relative density 60/60 °F > 0.7710 and 
input relative density 60/60 °F < 0.7885 
define a = A+ B/p2 where 
A and B are chosen to be the coefficients of a line joining the jet 
fuel line at 0.7710 to the gasoline line at 0.7885. 
A = .OOXXXXXX 
B = XXXX«XXXX 


a) Evaluate BL 
p 


a(1) compute Bo = .XXXXXXXX 
a(2) compute B/p = .XXXXXXXX rounded to nearest .0000000001 


b) Sum resutts of a(?) and A and round to nearest .0000001 
l.e. a = «00O0XXXX 


STEP 5: Calculate At 
define At = DEGF - Tpase 
Note: Tgase carried to 3 digits XX.X (60.0) 
Carry At = XXX.X 


STEP 6: Calculation of VCF 
define VCF = EXP[-~a AtT(1.0 + 0.8aAT)] 
EXPI-q At - 0.8 a2 At] 
ae Calculation of exponent 
a(l) aA t = +XXXXXXXX 
a2) .BaAt = «XXXXXXXX 
a(3) «8 a2 ATS = .OXXXXXXX 
a(4) -aAt - 0.8 a2 At = 0.XXXXXXXX with any trailing 
digits dropped 


be. Calculation of exponential 
VCF = EXP{-aAt - 0.8 a2 At4] = X.XXXXXX 
using at least the first 7 terms of the power series expansion 


of eX 
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Computational 


1.XXXX rounded to nearest 0.0001 if VCF > 1 
value of VCF 


O.XXXXX rounded to nearest 0.00001 if VCF < 1 


Table value 


of VCF XeXXXX rounded VCF to nearest 0.0001 


The 1980 integer FORTRAN code issued by API contained both an integer 
division and an integer multiplication algorithm. A description of each is 


contained in the following: 


INTEGER MULTIPLICATION PROCEDURE 
(FOR 32 BIT ARITHMETIC) 


DATA DEFINITION 


X, Y are integer numbers that are equal to or less than 2 * 109, 
(slightly less than 231), A larger value may cause overflow. In addition, 
the total number of digits in X and Y must not exceed 17, otherwise overflow 
will occur. 

Z is the product XY scaled by 1078, i.e. Z = xY/108 

Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically, at least 15 digits are 
needed to obtain 6 digit precision, 16 for 7 and 17 for 8. 

The largest values of X and Y that may be used are 2 000 000 O00 and 
99 999 999, 


CALCULATION 


X/10000 = Uy 
10000 Uy = Ky 
X-K, =YVq 
Y/10000 = U2 
10000 Uz = Kz 
Y-Kp = V2 


(UzVo) + CUQVy) + (V4V2/10000) = Kz 

(Kz + 5000)/10000 + (UyU2) = Z 

Note: Z has been scaled by 1078 and may have to be rescaled before use. 
TOTAL DIGITS IN X_AND_Y 12 13 14 #15 «16 «17 


DIGITS IN PRODUCT, Z 3-4 4-5 5-6 6-7 7-8 8-9 
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INTEGER DIVISION PROCEDURE 
(FOR 32 BIT ARITHMETIC) 


DATA DEFINITION 


X, Y are integer numbers such that X is equal to or less than 222 - | 


and Y is of order of magnitude 104 less than X. 


R is the quotient of & scaled by 104, i.e. R = 2 * 104, 


Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically the more digits that are 
carried in both X and Y, the more accurate digits on output. 

CALCULATION 


X/Y = Uy 
U1Y = Ky 
X- Ky = Vq 
Vi/Y = = U2 


U; * 10000 + Up = R 


Note: R has been scaled by 104 and may have to be rescaled before use. 


EXAMPLES FOR CHECKOUT 


The following examples are designed to aid in checkout procedures for 
both the existing AP! subroutine and any subroutines which are developed using 
the imptementation procedure outlined above. The lines of the examples are 


numbered to correspond to the lines within the calculation procedure. 


EXAMPLE 1: Assume a fuel oi! with an input relative density 60/60 °F of 
0.9054 and an observed temperature of 105.03 °F. Calculate the 
VCF required to correct the volume to 60 °F, correct to 4 decimal 


digits. 


STEP 1: ae rounded SG60 = 0.9055 
be rounded DEGF 105.0 
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STEP 2: o rounded to nearest 0.01 Kg/m> 
op = 904.61 
STEP 3: Kg = 105.8720 (as of May 1, 1980) 
K, = 0.2701 (as of May 1, 1980) 
K 
STEP 4: |.a. Evaluate 2 
2 
re) 
K 
a(1) 2 = 0.11482517 
p 
K /p 
a(2) 0. = 0.0001269333 
p 
K 
l.b. Evaluate _l 
0 
K 
b(1) wb = 0.0002985817 
p 
Les a = 0.0004255 
STEP 5: At = 45.0 
STEP 6: Calculation of VCF 
ae Calculation of exponent 
a(1) 0.01914750 
a(2) 0.015351800 
a(3) 0.00029330 
a(4) -0.0194408 


VCF correct to 4 decimal 


Copyright por American Petroleum Institute 
Mon Feb 07 13:42:55 2005 


Calculation of exponential 
VCF = 0.980746 


digits = 0.9807 
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Assume a jet fuel with an input relative density 60/60 °F of 0.8198 
and an observed temperature of 80.1 °F. Calculate the VCF required 


to correct the volume to 60 °F, correct to 4 decimal digits. 


0.8200 
80.1 


STEP 1: a. rounded SG60 
be rounded DEGF 


rounded to nearest 0.01 Kg/m> 
o = 819.19 


STEP 2: f°) 


STEP 3: Kg = 330.5010 
K, = 0.0 


(as of May 1, 1980) 
(as of May 1, 1980) 


K 
Evaluate 2 
2 


p 


STEP 4: lea. 


K 


a(1) 2 = 0.40320438 
p 


a(z) 2. = 0.0004921989 
p 


K 


[.b. Evaluate _! 


STEP 5: At = 20.1 
STEP 6: Calculation of VCF 
ae Calculation of exponent 
a(1) 0.00989322 
a(2) 0.00791457 
a(3) 0.00007830 
a(4) -0.00997152 
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b. Calculation of exponential 
VCF = 0.990078 


VCF correct to 4 decimal digits = .9901 


EXAMPLE 3: ASsume a product with an input relative density 60/60 °F of 0.7783 
and an observed temperature of 48.1 °F. Calculate the VCF required 


to correct the volume to 60 °F, correct to 4 decimal digits. 


0.7785 
48. 1 


u 


STEP 1: a. rounded SG60 
be. rounded DEGF 


u 


STEP 2: p rounded to nearest 0.01 Kg/m> 
9 = 777.73 


STEP 3: Kg, Ky not applicable; relative density 60/60 °F found 


in transition zone. 


STEP 4: Il.a. A 
B 


- .00 186840 (as of May 1, 1980) 
1489 .0670 (as of May 1, 1980) 


a(1) B = 1.914632 


D 


a(2) B/p = 0.00246182 
fa) 


De a = 0.0005934 


STEP 5: At = -11.9 


STEP 6: Calculation of VCF 

ae Calculation of exponent 
a(1)  -0.00706146 
a(2) -0.00564916 
a(3) 0.00003989 
a(4) 0.00702157 

b. Calculation of exponential 
VCF = 1.007046 
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VCF correct to 4 decimal digits = 1.0070 


EXAMPLE 4: Assume a gasoline with an input relative density 60/60 °F of 
0.7500 and an observed temperature of 89.6 °F. Calculate the VCF 
required to correct the volume to 60 °F, correct to 5 significant 


figures. 


STEP i: a) rounded SG60 
b) rounded DEGF 


0.7500 
89.6 


STEP 2: pp rounded to nearest 0.01 Kg/m? 


p = 749.26 
STEP 3: Kg = 192.4571 (as of May 1, 1980) 
Kz = 0.2438 (as of May 1, 1980) 
K 
STEP 4: |eae Evaluate 0 
of 


K 
a(l) 2 = .25686290 

K 
a(2) _Q” = 0.0003428221 


K 
l.b. Evaluate 
0 


K 
b(1) 1) = 0.0003253877 


p 
iwice a = 0.0006682 


STEP 5: At = 29.6 


STEP 6: Calculation of VCF 
ae Calculate exponent 
a(l) 0Q.01977872 
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a(2) 0.01582297 
a(3) 0.00031295 
al4)  -.02009167 


b. Calculation of exponential 


VCF = 0.980108 


VCF correct to 5 significant figures = 0.98011 


11.1.24.7 TABLE 24C—VOLUME CORRECTION 
FACTORS FOR INDIVIDUAL AND 
SPECIAL APPLICATIONS, VOLUME 
CORRECTION TO 60°F AGAINST 
THERMAL EXPANSION COEFFICIENTS 
AT 60°F 


TABLE 24C gives volume correction factors to 
convert petroleum liquid volumes to the corresponding 
volume at 60°F. The table presents tabular entries of 
volume correction factors against thermal expansion co- 
efficients and temperature. The values were computed 
from the basic equation used to represent volume cor- 
rection factors. 


VCF = EXP [-a7A(1 + 0.8a7AD)] (1) 
ar = a at the base temperature 
Ar=1t-T 

t = any temperature 
T = base temperature. 


In this form the equation is independent of the group 
or substance. It can be used with any valid method of 
obtaining the thermal expansion coefficient for a given 
fluid as long as a statistically significant number of 
points are obtained. A minimum of ten such points is 
recommended. The appendix (11.1.24.7.1 in Volume 
VI) to TABLE 24C presents values of the thermal ex- 
pansion coefficient along with the base density for each 
of the NBS samples. In addition, values of the constants 
Ko and Ky are given for each major group. These con- 
stants relate the thermal expansion coefficient to base 
density by 


Ko + K 
i= 0 = iPr (2) 
Pr 


This table and its primary subroutine allow the use of 


Copyright por American Petroleum Institute 
Mon Feb 07 13:42:56 2005 


measured data for previously unstudied fluids to sup- 
plement those data included in the initial data base. 
High precision density data obtained from the labora- 
tory for a fluid of interest may be reduced by Equa- 
tion 1 to obtain py and a7. TABLE 24C may then be 
entered with the a7 so determined. 

TABLE 24C, when used with a minimum of ten data 
points, allows one to extract the highest degree of accu- 
racy from the base data. It is suggested that TABLE 
24C be used when: 

1. TABLES 24A and 24B do not adequately represent 
the thermal expansion properties of the fluids of inter- 
est; and 

2. Precise thermal expansion coefficients may be ob- 
tained directly or indirectly by experiment (As an exam- 
ple, high precision density data may be used to compute 
the coefficients); and 

3. Buyers and sellers agree that, for their use, a greater 
degree of equity can be obtained. 


The temperature ranges of this table are: 


a 10° °F 
270 to 510 0 to 300 
510 to 530 0 to 250 
530 to 930 0 to 200 


The volume correction factors given in this table are 
based on data from the U.S. National Bureau of Stan- 
dards (NBS) and from other published data. The ap- 
pendix to this table presents values of the thermal ex- 
pansion coefficients at 60°F for each of the samples 
included in the NBS data set. Portions of the tempera- 
ture ranges represent areas beyond these data. Thus, 
mathematical techniques were employed to extrapolate 
beyond the temperature ranges of the given data to 
determine the volume correction factors for these 
areas. These factors are denoted by an asterisk (*). 
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Extension of this table beyond the ranges shown is not _practical method of interpolation that will produce the 
intended. accuracy obtainable from the Standard. 

Increments used in this table for determining the vol- 
ume correction factors are 0.5°F and 2 units for a. In- 
terpolation between either temperature or thermal ex- 
pansion coefficient is not intended since there is no 


This table must be entered with a known 
thermal expansion coefficient at 60°F and with an 
observed temperature. 


11.1.24.8 PROGRAM DOCUMENTATION FOR SUBROUTINE TAB24C— 
VOLUME CORRECTION FACTORS FOR INDIVIDUAL AND 
SPECIAL APPLICATIONS, CORRECTION OF VOLUME TO 60°F 
AGAINST COEFFICIENTS OF EXPANSION AT 60°F 


ABSTRACT. 


Subroutine Title: TAB24C - TABLE 24C, VCF for Individual and 


Special Applications, Volume Correction to 60 °F 


Description: This subroutine is designed to calculate the 
volume correction factor required to convert 
a volume at an observed temperature to The cor- 
responding volume at 60 °F assuming the coeffi- 


clent of thermal expansion is known. 


Program Responsibility: American Petroleum Institute 
Measurement Coordination 
2101 L Street, N.W. 
Washington, D.C. 20037 


Date Issued: August 1980 
Language: FORTRAN, ANSI/ASA Standard 
Reference: API Standard 2540, TABLE 24, 11.1.24 


THIS SUBROUTINE WAS DEVELOPED USING THE MATHEMATICAL ALGORITHMS 
ANO SPECIFICATIONS DESCRIBED IN THE DOCUMENT PROCEDURE 11.1.24.9. 
ANY MODIFICATIONS TO THIS SUBROUTINE MUST RIGIDLY ADHERE 
TO THE SAME ALGORITHMS AND SPECIFICATIONS. 
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11.1.24.8.1 Introduction 


TAB24C is a computer subroutine designed to calculate the volume cor- 
rection factor (VCF) necessary to convert a volume of a liquid hydrocarbon 
with a known coefficient of the thermal expansion and at a specified tempera- 
ture in degrees Fahrenheit (°F) to the equivatent volume at 60 °F. The sub- 
routine accepts as input the desired coefficient of thermal expansion rounded 
to the nearest 0.0000005 and the observed temperature rounded to the nearest 
O.t °F. If either input value has not been properly rounded, the subroutine 
will round the values and return the corrected values. The subroutine returns 
one value of VCF with 5 significant figures of accuracy for computation pur- 
poses and another VCF value rounded to four decimal places for printing pur- 
poses. The subroutine also outputs a status code for user convenience. The 
code is set to -1 if an error condition occurs and to +1 if the input values 
are outside the limits of the correlation. A status code of zero is returned 
if the input values are within the limits of the correlation. The limits of 
the correlation including the extrapolated region are depicted in Figure X-13. 
The calling program must check the flag and provide the user with appropriate 


warning messages or program termination. 


11.1.24.8.2 Subroutine Specifications 


The range of application: Alpha * 106 Temperature, °F 
270.0 to 510.0 0.0 to 300.0 
510.5 to 530.0 0.0 to 250.0 
530.5 to 930.0 0.0 to 200.0 

Referenced modules: VCF24C, MPYC 

FORTRAN functions: FLOAT 


Average execution time: 2290 VCF entries/CPU second 
1BM 370/168 
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The subroutines are written in ANSI/ASA FORTRAN using integer arithmetic. The 


size and storage requirements are: 


1. Compilable source statements 86 
2. Decimal storage bytes 1944 
3. Words 486 


11.1.24.8.35 Calling Sequence 


CALL TAB24C (ALF60, DEGF, VCFC, VCFP, IFLAG) 


INPUT DESCRIPTION 


ALF60 - Coefficient of thermal expansion 
(ALF60 returned will be rounded to nearest 0.0000005) 


DEGF - Observed temperature, °F 


(DEGF returned will be rounded to nearest 0.1 °F) 


OUTPUT DESCRIPTION 


VCFC = Output VCF rounded to 5 significant figures for computational 
purposes 
jee. VCFC = 1.XXXX 


or VCFC = 0.XXXXX 


VCFP - Output VCF rounded to 4 decimal places for printing purposes 
i.e. VCFP = 1.XXXX 
or VCFP = 0.XXXX 


IFLAG - Status Code 
O: Indicates input variables are within the range of applica- 
tion. 
1: Input data outside limits of correlation as given in 
11.21.24. 
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-1: Indicates input ALF60 or input DEGF outside range of appli- 
cation as given in 11.1.24; VCFC and VCFP set to -1.0000. 


11.1.24.8.4 Method of Calculation 


The subroutine evaluates the equation 


VCF = EXP[- %6q AT(1.0 + 0.8 GQ At)] 


where At = DEGF - 60.0 


A6q = coefficient of thermal expansion 


A full explanation of the equation may be found in API Standard 2540, TABLE 
24, 11.1.24. 


11.1.24.8.5 Examples 


These examples are tutorial in nature and are not intended to be sufficient 
for subroutine checkout. The examples given in procedure 11.1.24.9 are to be 


used for the computer checkout. 


Example 1 
ALF60 = .0004402 
DEGF = 90.47 
CALL TAB24C (ALF60, DEGF, VCFC, VCFP, IFLAG) 
After the call: ALF60 = .0004400 
DEGF = 90.5 
VCFC = .98653 
VCFP = .9865 
IFLAG = 0 
Example 2 
ALF60 = .0003300 
DEGF = 255.0 


CALL TAB24C (ALF60, DEGF, VCFC, VCFP, IFLAG) 
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After the call: ALF60 = .00033500 
DEGF = 255.0 
VCFC = .93458 
VCFP = .9346 
[FLAG = 1 

Example 3 

ALF60 = .0006660 

DEGF = 500.0 

CALL TABZ4C (ALF60, DEGF, VCFC, VCFP, IFLAG) 

After the call: ALF60 = .0006660 
DEGF = 500.0 
VCFC = -1.0000 
VCFP = -1.0000 
IFLAG = -] 
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11,.1.24.8.6 FLOWCHART 


INPUT: THERMAL EXPANSION 
COEFFICIENT OBSERVED TEMPERATURE 


ROUND INPUT DATA 
TO SPECIFICATION 


SET VCF = -1.0000 
ERROR FLAG TERR = -1 
RETURN 


CHECK 
TO SEE IF 
DATA WITHIN 
BOUNDS OF 
TABLE 


CALCULATE VCF 


YES 


1S DATA IN 
EXTRAPOLATED 
REGION? 


SET ERROR 
FLAG = | 


SET ERROR 
FLAG = 0 


RETURN 


11.1.24.8.7 Subroutine Listing 


TAB24C This subroutine serves as the input/output routine to 
the subsequent modules necessary in the calculation of 
volume correction factor from the coefficient of thermal 


expansion at 60 °F and observed temperature. 


Copyright por American Petroleum Institute 
Mon Feb 07 13:42:58 2005 


API MPNS*L1-1 VOL*¥X 80 MM 0732290 0526134 077 


SECTION 1—VOLUME CORRECTION FACTORS 


Referenced Modules 


MP YC This module performs integer multiplication with a maxi- 


mum of 17 digits. 


VCF24C This module is designed to calculate volume correction 


factor. 


SUBROUTINE TAB24C(ALF60 , DEGF, VCFC,VCFP, IFLAG) 


(C)COPYRIGHT 1980 
AMERICAN PETROLEUM INSTITUTE 
ALL RIGHTS RESERVED 


PETROLEUM MEASUREMENT IN PART FROM DATA GENERATED 
BY A PROJECT FUNDED BY THE AMERICAN PETROLEUM 
INSTITUTE AT THE U.S. NATIONAL BUREAU OF STANDARDS, 
GAITHERSBURG, MARYLAND. 


INQUIRIES CONCERNING ITS APPLICATION SHOULD 
BE ADDRESSED TO: 
AMERICAN PETROLEUM INSTITUTE 
MEASUREMENT COORDINATION 
2101 L STREET, N.W. 
WASHINGTON, DC 20037 


* 

5 THIS SUBROUTINE OR THE MATHEMATICAL RELATIONSHIPS 
* REPRESENTED THEREBY MAY BE USED BY ANYONE WISHING 
* TO DO SO, BUT THE AMERICAN PETROLEUM INSTITUTE, 

* THE AMERICAN SOCIETY FOR TESTING AND MATERIALS, 

‘s AND THE INSTITUTE OF PETROLEUM AND THEIR 

. RESPECTIVE MEMBERS AND THE U.S. NATIONAL BUREAU 

e OF STANDARDS, SHALL NOT BE HELD RESPONSIBLE OR 

* LIABLE IN ANY WAY FROM LOSS OR DAMAGE, INCLUDING, 
a BUT NOT LIMITED TO, CONSEQUENTIAL DAMAGE, 

2 RESULTING FROM SUCH USAGE OR FOR VIOLATION OF 

z ANY FEDERAL, STATE, OR MUNICIPAL LAWS, REGULATIONS 
* OR PRACTICES OF THE UNITED STATES OR OF ANY 

* FOREIGN COUNTRY . 

a 

a 


THIS SUBROUTINE IS DESIGNED TO ACCEPT AS INPUT 

A VALUE OF ALPHA (THERMAL EXPANSION COEFFICIENT ) 

AND OBSERVED TEMPERATURE IN DEGREES FAHRENHEIT (DEGF ) 
AND PRODUCE THE VOLUME CORRECTION FACTOR FOR 


DO DDODODDDDAODNDAGBAAAANAAANDANGAGAAAGDIAIGAVAOV OO 


VOLUME CORRECTION TO 60 F. 
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THIS SUBROUTINE IS A VOLUNTARY STANDARD AND WAS DEVELOPED 
UNDER THE AUSPICES OF THE JOINT API-ASTM COMMITTEE ON STATIC 
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24€00010 
24000020 
24000030 
24000040 
24000050 
240600060 
24000070 
24000080 
24000090 
24000100 
24000110 
24000120 
24600130 
24600140 
24600150 
24000160 
24600170 
24600180 
24C600190 
24600200 
24600210 
24600220 
24000230 
24600240 
24600250 
24600260 
24000270 
24€600280 
240600290 
24600300 
24000310 
24000320 
24600330 
24000340 
240600350 
24600360 
24600370 
24600380 
24€00390 
24C600400 
24600410 
24000420 
24600430 
24000440 
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Cc 24600450 
Cc THIS SUBROUTINE CALLS 24000460 
Cc VCF24C (CALLS MPYC) 24600470 
Cc 24C00480 
Cc ALF60 SHOULD BE INPUT TO THE NEAREST 0.5 WHERE 24000490 
Cc ALF60 IS XXX.X * 10**-6. THE SUBROUTINE WILL 24000500 
Cc ROUND THE VALUE AND RETURN THE CORRECTED VALUE. 24000510 
Cc 24000520 
C DEGF SHOULD BE PASSED IN THE NEAREST 24000530 
Cc TENTH OF DEGREE FAHRENHEIT. THE SUBROUTINE WILL 24000540 
Cc ROUND THE VALUE AND RETURN THE CORRECTED 24C00550 
C VALUE. 24C00560 
C 24000570 
Cc VCFC IS THE RETURNED VOLUME CORRECTION FACTOR 24000580 
Cc CORRECT TO FIVE(5) SIGNIFICANT FIGURES. 24000590 
Cc 24C00600 
Cc VCFP IS THE RETURNED VOLUME CORRECTION FACTOR 24000610 
Cc CORRECT TO FOUR(4) DECIMAL DIGITS. 24000620 
Cc 24C000630 
CG IFLAG IS THE ROUNDED STATUS CODE WHICH SHOULD 24000640 
Cc BE CHECKED BY THE USER IN THE CALLING PROGRAM 24000650 
Cc =0 NO ERROR 24C00660 
Cc =1 INPUT DATA WITHIN EXTRAPOLATION RANGES AS 24000670 
Cc GIVEN IN API 2540, 11.1.24 24C00680 
Cc =-1 INPUT DATA OUTSIDE SPECIFIED RANGE OF 24C00690 
Cc APPLICATION AS GIVEN IN API 2540, 11.1.24 24C00700 
Cc 24C00710 
DATA IEP? , IEP2, IEP3/2500 , 2000, 1500/ 24C00720 

DATA NBP1 ,NBP2/2700 ,9300/ 24000730 

DATA IBP1 , IBP2/5100,5300/ 24000740 

DATA ITMP1 , ITMP2 , ITMP3/3000, 2500, 2000/ 24€00750 

DATA IBAS/600/ 24C00760 

Cc 24C00770 
VCFC=-1.0000 24C00780 
VCFP=-1.0000 2400790 
IFLAG=-1 24C00800 

Cc 24000810 
Cc ROUND INPUT VALUES 24000820 
Cc 24€C00830 
ITEMP=DEGF*10.0+0.5 24€600840 
DEGF=FLOAT(ITEMP)/10.0 24000850 
IALF=(ALF60* 100000000 .0+25.0)/50.0 24C00860 
IALF=IALF*5 24C00870 
ALF60=FLOAT(IALF)/10000000. 24C00880 

Cc 24C00890 
Cc CHECK ALPHA RANGES 24C00900 
Cc 24€00910 
IF(IALF-NBP1)10,20,20 24C00920 

10 CONTINUE 24C00930 
RETURN 24C00940 

20 IF(IALF-NBP2)30,30,10 24000950 

30 CONTINUE 24C00960 

Cc 24000970 
Cc CHECK VALID TEMPERATURE RANGES 24000980 
Cc 24C00990 
IF(ITEMP)40,50,50 24C01000 

40 CONTINUE 24C001010 
RETURN 24001020 
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50 IFC IALF-IBP1)60,60,70 
60 IF(ITEMP-ITMP1)100,100,40 
70 IF(IALF-IBP2)80, 80,90 
80 IFC ITEMP-ITMP2)100,100,40 
90 IF(ITEMP-ITMP3)100,100,40 
100 CONTINUE 
IIALF=IALF 
IDT=ITEMP- IBAS 


aOa0 


CALCULATE VCF 


CALL VCF24C(IIALF,IDT,IVCF) 
IFLAG=0 


aa0 


CHECK TO DETERMINE IF IN EXTRAPOLATED REGION 


IF(IALF-IBP1)101,101,110 
101 IFC ITEMP-IEP1)140,140,105 
105 IFLAG=1 


GO 


TO 140 


110 IFC IALF-IBP2)120,120,130 
120 IF( ITEMP-IEP2)140,140,105 
130 IFC ITEMP-IEP3)140,140,105 
140 CONTINUE 


aqaaqaaqaa0 


CALCULATE PRINT AND CALCULATION VALUES OF VCF 
PRINT VALUE (PVCF) ROUNDED TO 4 DECIMAL DIGITS 
CALCULATION VALUE (CVCF) ROUNDED TO 5 SIGNIFICANT DIGITS 


JVCF=(IVCF/1000+5)/10 

PVGF=JVCF 

PVCF=PVCF/10000. 

IF( IVGF -100000000)150,160,160 
150 CONTINUE 


aan 


VCF LESS THAN ONE, FIVE DECIMALS RETURNED 


JVCF=(IVCF/100+5)/10 
CVCF=JVCF 
CVCF=CVCF/100000. 


GO 


TO 180 


160 CONTINUE 
CVCF=PVOF 

180 CONTINUE 
VCFC=CVCF 
VCFP=PVCF 
RETURN 
END 


SUBROUTINE VCF24C(IALF,IDT,IVCF) 


AS 
OR 
Is 


aoaaanan 
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24601030 
24001040 
24C001050 
240601060 
24001070 


°24601080 


24001090 
24601100 
24001110 
24C001120 
24001130 
24001140 
24001150 
24001160 
24001170 
24001180 
24001190 
24601200 
24001210 
24001220 
24601230 
24001240 
240601250 
24001260 
240601270 
24001280 
24001290 
24601300 
24001310 
24001320 
24601330 
24001340 
24001350 
24001360 
24601370 
24001380 
24001390 
24001400 
24001410 
24001420 
24001430 
24001440 
24001450 
240601460 
24001470 
24001480 
24001490 
24001500 


24001510 
24601520 
24001530 
24001540 
24C001550 
24001560 
24001570 
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Cc 24001580 
Cc ALGORITHM- 24601590 
Cc VCF=EXP( -ALPHA*DT(1.0+0.8*ALPHA*DT ) ) 24001600 
Cc 24001610 
Cc CALCULATE ALPHA*DT 240601620 
Cc 24601630 
ITERM1=IALF* IDT 24001640 
Cc 24001650 
Cc GALCULATE 0.8 *ALPHA *DT 24001660 
Cc 24001670 
ITERM2=ITERM1 /5*4 24001680 
CG 24601690 
Cc CALCULATE EXPONENT -ALPHA?DT(1.0+0.8*ALPHA*DT) 24601700 
Cc 24001710 
CALL MPYC(ITERM1 , ITERM2 , ITERMS ) 24001720 
IX=- (ITERM1+ITERMS ) 24001730 
Cc 24001740 
Cc CALCULATE EXPONENTIAL(FIRST 7 TERMS OF POWER SERIES) 24601750 
Cc 24001760 
ISUM1=100000000+1IX 24C001770 
CALL MPYC(IX,IX, ISUM2) 24001780 
ISUM2=ISUM2 /2 24001790 
CALL MPYC( IX, ISUM2 , ISUM3 ) 24001800 
ISUM3=ISUM3 /3 24001810 
CALL MPYC(IX, ISUM3 , ISUM4 ) 240601820 
ISUM4=ISUM4 / 4 24001830 
CALL MPYC( IX, ISUM4 , [SUMS ) 24001840 
ISUM5=ISUM5/5 24001850 
CALL MPYC( IX, ISUMS5 , ISUMG ) 24001860 
ISUM6=ISUM6/6 24C001870 
IVCF=ISUM1+ISUM2+1SUM3+ISUM4+ISUM5+1ISUM6 24601880 
RETURN 24601890 
END 240601900 
SUBROUTINE MPYC(IX,IY,IZ) 24601910 
Cc 24001920 
Cc THIS MODULE PERFORMS INTEGER MULTIPLICATION. THE TOTAL 24601930 
Cc NUMBER OF DIGITS IN IX AND IY MUST NOT EXCEED 17. OTHER 24601940 
Cc WISE, OVERFLOW WILL OCCUR. 24601950 
Cc 24001960 
Iut = IX / 10000 24001970 
Ki = 10000 * Tu1 24001980 
Iv1 = IX - K1 24001990 
Iu2 = IY / 10000 24C002000 
K2 = 10000 * IU2 24€02010 
Iv2 = IY - K2 24002020 
K3 = IU1 * IV2 + IU2 * IVi + IV1i * IV2 / 10000 24002030 
IZ = (K3 + 5000) / 10000 + IU1 * Iu2 24002040 
RETURN 24602050 
END 240602060 
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11.1.24.9 IMPLEMENTATION PROCEDURE FOR SUBROUTINE TAB24C 


In today's world there is a rapidly developing trend to use computers in 
custody transfer measurements, accounting work, process control systems, and a 
variety of other uses where tables must be incorporated into computer codes. 
Yet many of the printed tables are almost impossible to code due to the fact 
that someone has slightly modified selected values to differ from those 
obtained using the mathematical expression that supposedly generated the 


tables. To overcome this problem it is often required to add extensive excep- 


tion tables to the codes. This makes the codes large and cumbersome to modify, 


and restricts their use to larger computer systems. Also with the development 
of better measuring devices it is often possible to gain more digits of preci- 
sion in the table parameters, necessitating finer grid of the tabular vatues, 
resulting in larger volumes of printed tables to be handled. 

In addition, as the on-line use of computers for metering purposes 
increases, the direct use of printed tables will decrease; therefore, the new 
Standard is an explicit implementation procedure rather than a set of equa- 
tions or a set of tables. It must be remembered that the standardization of 
the implementation procedure implies standardization of the set of mathemati- 


cal expressions used within the code. Absolute adherence to the procedure 


will help to insure that all computers and computer codes of the future, meet- 
ing the specifications and restrictions, will be able to produce the same 
results. it is believed that this procedure will allow for the maximum 


machine and code independence. The procedure was implemented in computer sub- 
routines issued by API in 1980 using ANSI/ASA FORTRAN. The subroutines maxi- 
mized precision by the use of 32-bit integer arithmetic. 

The procedure as described in the following text can, by careful and 
deliberate application of numerical analysis, be used with the majority of 
languages and word sizes in present or anticipated use. To use the standard 
procedure means to maintain absolute and unwavering adherence to the number of 
digits specified at each step and to the calculation procedure as outlined. 

In the procedure, the nomenclature used is that of ASTM £380-76, unless 
an explicit procedure is given below, in which case the procedure given below 
overrides that given by ASTM £380-76. 

In the procedure the nomenclature (XXX.XX) means five (5) mathematically 


significant digits. 
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The term rounding as used in the procedure means: Consider only the 
first digit to the right of the desired position and 
ae If that digit is greater than 4, increment the desired position by 
one and drop the remaining digits to the right of the desired posi-~ 
tion. 
b. If that digit is less than 5, simply drop the remaining digits to 
the right of the desired position. 


Calculation Procedure 


STEP 1: Round input variables of API gravity and observed temperature 
a. Round API gravity to the nearest 
0.1 °API and carry as 4 digit result 
ie AP] gravity (API60) = XXX.X 
be Round observed temperature to the nearest 
Q.1 °F and carry as 4 digit result 
ise. observed temperature (DEGF) = XXX.Xx 


STEP 2: Calculate At 
define At = DEGF - Tgase 
Note: Tpase carried to 3 digits XX.X (60.0) 
Carry At = XXX.X 


STEP 3: Calculation of VCF 
define VCF = EXPI[-aAt(1.0 + 0.8aAT)] 
EXP[-aAt - 0.8 a2 até] 
ae Caiculation of exponent 
a(t) gAT = oXXXXXXXX 
a(2) «8 aAtT = .XXXXXXXX 
a(3) «8B a2 ATS = .XXXXXXXX 
a(4) -aAt - 068 a2 At? = O.XXXXXXXX with any trailing 


digits dropped 
b. Calculation of exponential 
VCF = EXPI- aAt - 0.8 a4 AtZ] = X.XXXXXX 
using at least the first 7 terms of the power series expansion 


of e% 
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Computational — 


value of VCF 


oe rounded to nearest 0.0001 if VCF > 1 
Q.XXXXX rounded to nearest 0.00001 if VCF < 1 


Table value 


oft VCF XeXXXX rounded VCF to nearest 0.0001 


The 1980 integer FORTRAN code issued by API contained an integer multi- 


plication algorithm. A description is contained in the fol lowing: 


INTEGER MULTIPLICATION PROCEDURE 
(FOR 32 BIT ARITHMETIC) 

DATA DEFINITION 

X, Y are integer numbers that are equal to or less than 2 * 109 
(slightly tess than 231), A larger value may cause overflow. In addition, 
the total number of digits in X and Y must not exceed 17, otherwise overflow 
will occur. 

Z is the product XY scaled by 1078, i.e. Z = x¥/108 

Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically, at least 15 digits are 
needed to obtain 6 digit precision, 16 for 7 and 17 for 8. 

The largest values of X and Y that may be used are 2 000 000 000 and 
99 999 999, (Either values may be used for X and Y). 
CALCULATION 


X/10000 = Uy 
10000 Uy = Ky 
X- Ky = V1 
Y/10000 = Us 
10000 U2 = Ke 
YS KhD. Ve 


(U,V2) + (UaVq) + (V4V2/10000) = Kz 

(Kz + 5000)/10000 + (U;U9) = Z 

Note: Z has been scaled by 1078 and may have to be rescaled before use, 
TOTAL DIGITS IN X AND Y 12 13 14 15 16 J 


DIGITS IN PRODUCT, Z 3-4 4-5 5-6 6-7 7-8 8-9 
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Examples For Checkout 


The following examples are designed to aid in checkout procedures for 
both the existing API subroutine and any subroutines which are developed using 
the implementation procedure outlined above. The lines of the examples are 
numbered to correspond to the corresponding lines within the calculation pro- 


cedure. 


EXAMPLE 1: Assume a liquid petroleum product with an input coefficient of 
thermal expansion corrected to 60 °F of 0.0004181 and an observed 
temperature of 105.03 °F. Calculate the VCF required to correct 


the volume to 60 °F, correct to 4 decimal digits. 


STEP 1: a. rounded ALF60 
b. rounded DEGF 


0.0004180 
105.0 


STEP 2: At = 45.0 


STEP 3: Calculation of exponential 

a» Calculation of exponent 
a(t) 0.01881000 
a(2) 0.0150480 
a(3) 0.000283 10 
a(4) -0.0190931 

be Calculation of exponential 
VCF = 0.9810881 


VCF correct to 4 decimal digits = 0.9811 


EXAMPLE 2: Assume a liquid petroleum product with an input coefficient of 
thermal expansion corrected to 60 °F of 0.0005625 and an observed 
temperature of 39.1 °F. Calculate the VCF required to correct the 


volume to 60 °F, correct to 5 significant figures. 


STEP 1: a. rounded ALF60 = 0.0005625 
b. rounded DEGF 39.1 
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STEP 2: At = -20.9 


STEP 3: Calculation of exponential 

a. Calculation of exponent 
a(t) -0.0117563 
a{(2) -0.0094050 
a(3) 0.0001106 
a(4) 0.0116457 

b. Calculation of exponential 
VCF = 1.0117138 


VCF correct to 5 significant figures = 1.0117 


EXAMPLE 3: Assume a liquid petroleum product with an input coefficient of 
thermal expansion corrected to 60 °F of 0.0003355 and an observed 
temperature of 269.4 °F. Calculate the VCF required to correct the 


volume to 60 °F, correct to 5 significant figures. 


STEP 1: a. rounded ALF60 0.0003355 
b. rounded DEGF = 269.4 


STEP 2: AT = 209.4 


STEP 3: Calculation of exponential 

a. Calculation of exponent 
a(t) 0.07025370 
a(2) 0.05620300 
a(3) 0.0039485 
a(4)  -0.0742022 

b. Calculation of exponential 
VCF = .928484 


VCF correct to 5 significant figures = 0.92848 
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11.1.53 TABLES 53A and 53B—Correction 
of Observed Density to Density at 
15°C 

Tables 53A and 53B give values of density in kilo- 
gram per cubic metre for a fluid at 15°C corresponding 
to densities (kg/m*) of that fluid at temperatures other 
than 15°C. It is assumed that the observed densities are 
obtained with a glass hydrometer. The density measure- 
ments at temperatures other than 15°C require two cor- 
rections: the first is for the change in the volume of the 
glass hydrometer with temperature, the second is for 
the change in the volume of the fluid with temperature. 

The first correction is necessary because the glass hy- 

drometers are calibrated for 15°C. Both corrections are 

applied in this table. 

The data are represented by two tables to maximize 
accuracy while maintaining convenience of use: 


TABLE 53A Generalized Crude Oils 
(see Volume VII) 


824.0 


TABLE 53B Generalized Products 
(see Volume VIII) 


The development and intended use of these tables is 
described in 11.1.6. The parameters Ky and K, may be 
found in 11.1.54.7.1 (see Volume IX). 

The limits of these tables are illustrated in Figures, 
X-14 and X-15. 


11.1.53.1 TABLE 53A—GENERALIZED CRUDE 
OILS, CORRECTION OF OBSERVED 
DENSITY TO DENSITY AT 15°C 


TABLE 53A gives the value of density in kilogram 
per cubic metre at 15°C corresponding to a hydrometer 
reading at observed temperatures other than 15°C. In 
converting the hydrometer reading at the observed tem- 
perature to the corresponding density at 15°C, two cor- 
rections are necessary: the first arises from the change 
in volume of the glass hydrometer with temperature 


778.5 758.0 


Density KG/M? 
Figure X-14 — Data Limits for TABLE 53A 


150 
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ee 90 
60 
Data Range 
—18 
150 p 
PZ 
120 LZ 
Temp 


—18 


1075.0 


125 


ZZ 
ZZ Extrapolated Ze, 


824.0 778.5 653.0 
Density KG/M? 


Figure X-15 — Data Limits for TABLE 53B 
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(stem correction) and the second from the change in 

volume of the crude oil with temperature. Both have 

been applied in this table. The values of density at 15°C 

in this table are the result of a computer procedure 

which is the Standard (see 11.1.53.2 and 11.1.53.3). 
The temperature ranges of this table are: 


Density, kg/m? °C 
610 to 778 -18 to 95 
778 to 824 —18 to 125 
824 to 1075 —18 to 150 


The values of density at 15° C given in this table are 
based on data from the U.S. National Bureau of Stan- 
dards and from other published data. Portions of the 
density and temperature ranges represent areas beyond 
these data. Thus, mathematical techniques were em- 
ployed to extrapolate beyond the density and tempera- 
ture ranges of the given data to determine the value of 
the density at 15°C for these areas. These values are 
denoted by an asterisk (*). Extension of this table 
beyond the ranges shown is not recommended. 

Increments used in this table for determining density 
at 15°C are 0.25°C and 2 kg/m*. Interpolation with tem- 
perature is not intended since there is no practical meth- 
od of interpolation that will produce the accuracy ob- 
tainable from the Standard. However, interpolation 
with density to one additional significant digit can be 
reasonably made. Interpolation is not required if the 
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TABLE 53A results are to be used as entries to TABLE 
54A. 


Some countries which have historically used a metric 
system have retained for field use units such as g/mL, 
g/cc, or kg/L. This practice was consistent with pre- 
viously published API/IP measurement tables which 
have been replaced by this 1980 edition. In these in- 
stances where field measurements of density are re- 
corded in g/mL, g/cc, or kg/L, multiply the measure- 
ments by 1000 to obtain kg/m? prior to entering TABLE 
53A. 


This table must be entered with a hydrometer 
reading measured with a soft glass hydrometer 
calibrated at 15°C and with an observed tempera- 
ture. 


A correction to the glass hydrometer reading 
has been incorporated into the table to account 
for the thermal expansion of glass. The hydrom- 
eter constant, as defined in the Report on the De- 
velopment, Construction, Calculation, and Prep- 
aration of the ASTM-IP Petroleum Measurement 
Tables (1960), varies with temperature according 
to the following: 

HYC = 1 — 0.000023(¢ — 15°C) 
— 0.00000002(¢ — 15°C)? 


11.1.53.2 PROGRAM DOCUMENTATION FOR SUBROUTINE TABS3A— 
GENERALIZED CRUDE OILS, CORRECTION OF OBSERVED 


DENSITY TO DENSITY AT 15°C 


Subroutine Title: 


Description: 


Program Responsibility: 


Date Issued: 
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ABSTRACT 


TAB53A - TABLE 53A, Generalized Crude Oils, 
Density Correction to 15 °C. 


This subroutine is designed to calculate the 
density at 15 °C corresponding to densities 
observed at temperatures other than 15 °C. 


American Petroleum Institute 
Measurement Coordination 

2101 L Street N.W. 
Washington, D.C. 20037 
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Language: FORTRAN, ANSI/ASA Standard 
Reference: API Standard 2540, TABLE 54, 11.1.54 


THIS SUBROUTINE WAS DEVELOPED USING THE MATHEMATICAL, ALGORITHMS 
AND SPECIFICATIONS DESCRIBED IN THE DOCUMENT PROCEDURE 
11.1.53.3. ANY MODIFICATION TO THIS SUBROUTINE MUST RIGIDLY 
ADHERE TO THE SAME ALGORITHMS AND SPRCIFICATIONS. 


11.1.53.2.1 Introduction 


TAB53A is a computer subroutine designed to calculate for substances 
characterized as crude oil the value of density at 15 degrees Celsius 
(°C) corresponding to densities observed at temperatures other than 

15 °C. The subroutine accepts as input the observed density rounded to 
the nearest 0.5 Kg/m3 and the temperature rounded to the nearest 

0.05 °C. If either input value has not been properly rounded, the 
subroutine will round the values and return the corrected values. The 
subroutine returns the value of the density at 15 °C rounded to the 
nearest 0.1 Kg/m3 and a status flag for user convenience. The flag is 
set to -l if an error condition occurs and to +1 if the value of the 
density at 15 °C is an extrapolation. The limits of the correlation 
including the extrapolated region are depicted in Figure X-14. The calling 
program must check the flag and provide user with appropriate warning 
message or program termination. The flag is set to zero when the input 
variables and the density at 15 °C are within the limits of the 
correlation. 


11.1.53.2.2 Subroutine Specifications 


The range of application is: 


Density, Kg/m3 Temperature, °C 
610.5 to 778.5 -18.00 to 95.00 
779.0 to 824.0 -18.00 to 125.00 
824.5 to 1075.0 -18.00 to 150.00 
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Referenced modules: ALP53A, DIV53A, MPY53A, VCF53A 
Fortran functions: FLOAT, IABS 


Average execution time: 950 entries/CPU second 
IBM 370/168 


The subroutines are written in ANSI/ASA FORTRAN using integer arithmetic. 


The size and storage requirements are: 


1. Compilable source statements 122 
2. Decimal storage bytes 3464 
3. Words 866 


11.1.53.2.3 Calling Sequence 
CALL TAB53A (RHO, DEGC, IHYDRO, RHO15, IFLAG) 
INPUT DESCRIPTION 


RHO —- Density at observed temperature, Kg/m3 
(RHO returned will be rounded to nearest 0.5 Kg/m3) 


DEGC - Observed temperature, °C 
(DEGC returned will be rounded to nearest 0.05 °C) 


IHYDRO - Hydrometer switch 
0: The density was observed with a glass hydro- 
meter and a hydrometer correction is needed 
1: The density was determined from an on-line 
densitometer and a hydrometer correction is not 
needed. 


OUTPUT DESCRIPTION 


RHOI5 - Corresponding density at 15 °C rounded to nearest 0.1 Kg/m3 
IFLAG —- Status Code 
0: Indicates input variables and calculated results are 


within the range of application 
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1: Indicates input variables are in extrapolated region 
~l: Indicates input variables or calculated results are 
outside the range of application 


NOTE: If a non-convergence occurs, the subroutine prints the following 


message: 


AT XXX.XX DEGREES C AND XXX.X KG/CU METRE, A CORRESPONDING 
DENSITY AT 15 °C COULD NOT BE DETERMINED. 


This message should not occur unless the code has been altered or 
incorrectly reproduced. Follow Section 11.1.53.3, Implementation 
Procedure, and test the subroutine exactly as described. The status 
flag will be set to -1, RHOI5 to -999.9, and program control returned 
to the calling routine. 


11.1.53.2.4 Method of Calculation 


This subroutine uses a convergence technique to determine the density at 
15 °C that corresponds to a density cbserved at some temperature other 


than 15 °C. 


On.% 
The coefficient of thermal expansion at the base temperature of 15 C is 


related to density at the base temperature by 


K K 
Pye eee ee ee 


a 
15 2 p 
P15 15 


The values of the density at temperature t, Pps and 15 are used in the 


volume correction factor equation to compute Py5- 


p 
t 
VCF = ae = EXP [-#y5ae( + 0.80 ,5At) | 
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Thus p, = P45 EXP [raise + 0.80 5At) | 
when Cis = density at the base temperature 
At = t - 15.0 


Since the equation for O45 cannot be solved explicitly, a successive 
approximation iterative scheme is used to cotain a solution. The initial 
estimate of p 15 is the value of the density at observed temperature t. 
This approximation is substituted into the right hand side of the equation 
to obtain a second value approximation. This process of substituting into 
the right hand side of the equation and estimating a new value from the 
other is repeated until two consecutive results are in agreement to the 
desired degree of accuracy. In subroutine TAB53A, a converged solution is 
reached when the change in density is less than 0.05 Kg/m? in two 


successive passes. 


A full explanation of the equations and the values of the parameters 
Kg and Kk, may be found in API Standard 2540, TABLE 54, 11.1.54. 


11.1.53.2.5 Examples 


These examples are tutorial in nature and are not intended to be suffi- 
cient for subroutine checkout. The examples given in the Implementation 
Procedure, Section 11.1.53.3, are to be used for the computer checkout. 


Example 1 
RHO = 846.0 (observed with a glass hydrometer) 
DEGC = 59.25 
IHYDRO = 0 


CALL TAB53A (RHO,DEGC,IHYDRO,RHO15 , IFLAG) 
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After the call: RHO = 846.0 
DEGC = 59.25 
IHYDRO = 0 
RHOIS = 876.4 
IFLAG = 0 
Example 2 
RHO = 786.11 (observed with a glass hydrometer) 
DEGC = 109.49 
THYDRO = 0 


CALL TAB53A (RHO,DEGC,IHYDRO,RHO15 , IFLAG) 


After the call: RHO = 786.0 
DEGC = 109.5 
THYDRO = 0 
RHO1S = 835.5 
IFLAG = 1 
Example 3 

RHO = 774.0 (observed with a glass hydrometer) 

DEGC = 110.0 

THYDRO = 0 


CALL TAB53A (RHO,DEGC,IHYDRO,RHO15 , IFLAG) 


After the call: RHO = 774.0 
DEGC = 110.0 
IHYDRO = 0 
RHO15 = -999.9 
IFLAG = -l 
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11.1,53.2.6 FLONCHART 
INPUT: DENSITY AND 
OBSERVED TEMPERATURE 


ROUND INPUT DATA 
TO SPECIFICATIONS 


DATA WITHIN 


BOUNDS OF NO 
CORRELATION 
YES 
CALCULATE DELTA 7 
Ni 
EED “a 


HYDROMETER 
CORRECTION 


COMPUTE HYDROMETER CORRECTION 


APPLY HYDROMETER CORRECTION TO DENSITY 


INITIALIZE 15°C DENSITY 


SET STATUS FLAG = -1 


AND 15°C DENSITY = -999.9 


RETURN 


X-285 
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CALCULATE ALPHA 
CALCULATE VCF 


CALCULATE NEW 
1S*C DENSITY 


CHECK FOR 
CONVERGENCE 


SET STATUS FLAG = -1 
ANO 15°C DENSITY = -999.9 
RETURN 


15°C DENSITY 
WITHIN LIMITS 
QF CORRELATIO 


is*c 
DENSITY 


SET STATUS FLAG = 1 
RETURN 


SET STATUS FLAG = 0 
RETURN 
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11.1.53.2.7 Subroutine Listing 


TAB53A This subroutine accepts density and the observation 


temperature and determines the corresponding density at 15 °C 
for Generalized Crude Oils. 


Referenced Modules 


ALF53A 


DIV53A 


MPY53A 


VCP53A 


This module calculates the coefficient of thermal expansion 


needed to determine a volume correction factor. 


This module is designed to produce additional accuracy from 


an integer divide. 


This module is designed to produce additional accuracy from 
an integer miltiplication. 


This module calculates a volume correction factor. 


SUBROUTINE TABS3A(RHO,DEGC, IHYDRO, RHO15 , IFLAG) 


MNANQANANAAANAAGAAAAGDMAAONO 


(CG) COPYRIGHT 1980 
AMERICAN PETROLEUM INSTITUTE 
ALL RIGHTS RESERVED 


THIS SUBROUTINE IS A VOLUNTARY STANDARD AND WAS DEVELOPED 
UNDER THE AUSPICES OF THE JOINT API-ASTM COMMITTEE ON STATIC 
PETROLEUM MEASUREMENT IN PART FROM DATA GENERATED BY A 
PROJECT FUNDED BY THE AMERICAN PETROLEUM INSTITUTE AT THE 
U.S. NATIONAL BUREAU OF STANDARDS, GAITHERSBURG, MARYLAND. 


INQUIRIES CONCERNING ITS APPLICATION SHOULD BE ADDRESSED TO: 


AMERICAN PETROLEUM INSTITUTE 
MEASUREMENT COORDINATION 
2101 L STREET, N.W. 
WASHINGTON, DC 20037 
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X-287 


53A00010 
53A00020 
53A00030 
53A00040 
53A00050 
53A00060 
53A00070 
53A00080 
53A00090 
53A00100 
53A00110 
53A00120 
53400130 
53A00140 
53A00150 
53A00160 
53A00170 
53A00180 


1 
-1 


- INPUT OR CALCULATED RESULTS IN EXTRAPOLATED REGION 53A00650 
- INPUT OR CALCULATED RESULTS NOT WITHIN LIMITS OF 53A00660 
CORRELATION 53A00670 


API MPMS*¥11-1]1 VOL*X 80 MM 0732290 0526153 Ted 
X-288 Cuarter 11—Puysica Properties DATA 

Cc §3A00190 
Cc We OME OK He ae ee ae aK Oe AK oe oe ok ae oe ak ke ak ak ak ak Me oe oe ak ok ak ok fe oe ake He Xe Ne ae Ae oie oa oe ae ae Me ae ae ae ok Ae ke ole ake ok ae ae ke He a ke ae he ole ok ale 53A00200 
Cc * * 53A00210 
Cc * THIS SUBROUTINE OR THE MATHEMATICAL RELATIONSHIPS * 53A00220 
Cc = REPRESENTED THEREBY MAY BE USED BY ANYONE WISHING * 53A00230 
Cc = TO DO SO, BUT THE AMERICAN PETROLEUM INSTITUTE, THE * 53A00240 
Cc * AMERICAN SOCIETY FOR TESTING AND MATERIALS, AND THE * 53A00250 
Cc ‘ INSTITUTE OF PETROLEUM AND THEIR RESPECTIVE MEMBERS AND * 6§3A00260 
Cc % THE U.S. NATIONAL BUREAU OF STANDARDS, SHALL NOT BE HELD * 53A00270 
Cc be RESPONSIBLE OR LIABLE IN ANY WAY FROM LOSS OR DAMAGE, * §3A00280 
c - INCLUDING, BUT NOT LIMITED TO, CONSEQUENTIAL DAMAGE, * 53A00290 
Cc * RESULTING FROM SUCH USAGE OR FOR VIOLATION OF ANY FEDERAL, * §53A00300 
Cc = STATE, OR MUNICIPAL LAWS, REGULATIONS OR PRACTICES OF THE * 53A00310 
Cc * UNITED STATES OR OF ANY FOREIGN COUNTRY. * §3A00320 
c * * §3400330 
Cc We Me He oe ee ae ae ae oe ole ee oe oe oe oe ok oe oe Ae oe ok ae fe ae ae Ok ie Me ate oie oe oe ae ae ale ae aie ae ke aie ate ae ale ole ake oe aie aie ake ate fe ate oe ake oe ale ote ae oe ake ae oe 53A00340 
Cc 53A00350 
Cc PURPOSE 53A00360 
Cc 53A00370 
Cc THIS SUBROUTINE IS DESIGNED TO ACCEPT AS INPUT A DENSITY (RHO) 53A00380 
Cc AT SOME OBSERVED TEMPERATURE (DEGC) IN DEGREES CELSIUS 53A00390 
Cc AND CALCULATE THE CORRESPONDING DENSITY (RHO15) AT 15 DEGREES 53A00400 
Cc CELSIUS FOR TABLE 53A, GENERALIZED CRUDE OILS. 53A00410 
Cc THE USE OF A GLASS HYDROMETER CORRECTION IS OPTIONAL. 53A00420 
Cc 53A00430 
Cc EXTERNAL FUNCTIONS OR SUBPROGRAMS 53A00440 
Cc 53A00450 
Cc ALF53A, DIV53A, MPY53A, VCF53A 53A00460 
Cc FORTRAN FUNCTIONS: FLOAT, IABS §3A00470 
Cc 53A00480 
Cc DESCRIPTION OF PARAMETERS 53A00490 
Cc 53A00500 
Cc RHO - DENSITY AT OBSERVED TEMPERATURE, NEAREST .5 CIN) 53A00510 
Cc KG/CU METRE (PROGRAM WILL ROUND RHO TO THE 53A00520 
Cc NEAREST .5 KG/CU METRE AND RETURN THE 53A00530 
Cc ROUNDED VALUE. ) 5§3A00540 
Cc DEGC - OBSERVED TEMPERATURE, NEAREST .05 DEG C CIN) 53A00550 
Cc (PROGRAM WILL ROUND DEGC TO THE NEAREST .05 53A00560 
C DEG C AND RETURN THE ROUNDED VALUE. ) 53A00570 
Cc IHYDRO - APPLICATION OF GLASS HYDROMETER CORRECTION (IN) 53A00580 
Cc 0 - HYDROMETER CORRECTION IS TO BE MADE 53A00590 
Cc 1 - HYDROMETER CORRECTION IN NOT TO BE MADE 53A00600 
Cc RHO15 - CORRESPONDING DENSITY AT 15 DEGREES C (OUT ) 53A00610 
Cc (ROUNDED TO THE NEAREST .1 KG/CU METRE) 53A00620 
Cc IFLAG - STATUS CODE (OUT ) 53A00630 
Cc 0 - INPUT AND CALCULATED RESULTS IN CORRELATION LIMITS 53A00640 
CG 

Cc 

Cc 

Cc 


DATA IBASE 
Cc 

DATA LIM1, 
Cc 
Cc 

DATA IBP1, 
Cc 
Cc 
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BASE TEMPERATURE (15 DEGREES C) 53A00680 

/ 1500 / 53A00690 
UPPER AND LOWER DENSITY LIMITS 53A00700 
LIM2 / 1074982, 610627/ 53A00710 
53A00720 

BREAK POINTS FOR DENSITY RANGES (778.5 AND 824.) 53A00730 
IBP2 / 77850, 82400 / 53A00740 
53A00750 


MAXIMUM TEMPERATURES AT EACH BREAK POINT ( 95,125,15053A00760 


Institute 


API MPMS*L1-1 VOL*X 80 MM O732250 0526154 565 


SECTION 1—VOLUME CORRECTION FacToRS X-289 
DATA ITMP1, ITMP2, ITMP3 / 9500, 12500, 15000 / 53A00770 
Cc 5§3A00780 
C BEGINNING OF TEMPERATURE EXTRAPOLATIONS ( 60, 90,12053A00790 
DATA IEP1, IEP2, IEP3 / 6000, 9000, 12000 / 53A00800 
Cc 53A00810 
Cc DENSITY EXTRAPOLATIONS (610.5 - 758.) 53A00820 
DATA IERHO / 75800 / 53A00830 
Cc 53A00840 
Cc COEFFICIENTS FOR CRUDE OILS 53A00850 
DATA KO, K1 / 6139723, 0 / 53A00860 
Cc §3A00870 
Cc UNIT 6 IS THE OUTPUT UNIT. IF THE OUTPUT IS TO BE DIRECTED 53A00880 
Cc TO SOME OTHER UNIT, SET NOUT TO APPROPRIATE VALUE. 53A00890 
NOUT = 6 53A00900 
Cc ROUND RHO TO NEAREST .5 KG/CU METRE 53A00910 
IRHO = ( (RHO * 100) + 25 ) / 50 53A00920 
IRHO = IRHO * 50 53A00930 
RHO = FLOAT(IRHO) / 100. 53A00940 
Cc CHECK FOR TEMPERATURE LESS THAN -18 DEG C 53A00950 
IF ¢ DEGC + 18 ) 900, 10, 10 §3A00960 
C ROUND TEMPERATURE TO NEAREST .05 DEG C §3A00970 
10 IRD = 25 53A00980 
IF ¢€ DEGC ) 15, 20, 20 53A00990 
15 IRD = -25 5§3A01000 
20 IT = (¢( (DEGC * 1000) + IRD ) / 50 53A01010 
IT = 1T * & 53A01020 
DEGC = FLOAT(IT) / 100. 53A01030 
Cc IS RHO LESS THAN 610.5 (IF YES, BRANCH TO 900) 53A01040 
IF ( IRHO - 61050 ) 900, 40, 40 53A01050 
Cc IS RHO GREATER THAN 1075. (IF YES, BRANCH TO 900) 53A01060 
40 IF ( IRHO - 107500 ) 50, 50, 900 53A01070 
Cc IS RHO GREATER THAN 778.5 (IF YES, BRANCH TO 70) 53A01080 
50 IF ( IRHO - IBP1 ) 60, 60, 70 §3A01090 
CG IS TEMP GREATER THAN 95. (IF YES, BRANCH TO 900) 53A01100 
60 IF ¢ IT - ITMP1 ) 100, 100, 900 53A01110 
Cc IS RHO GREATER THAN 824. (IF YES, BRANCH TO 90) 53A01120 
70 IF (¢( IRHO - IBP2 ) 80, 80, 90 5§3A01130 
Cc IS TEMP GREATER THAN 125. (IF YES, BRANCH TO 900) 53A01140 
80 IF ¢( IT - ITMP2 ) 100, 100, 900 §3A01150 
Cc IS TEMP GREATER THAN 150. (IF YES, BRANCH TO 900 53A01160 
90 IF ¢ IT - ITMPS3 ) 100, 100, 900 53A01170 
100 CONTINUE 53A01180 
Cc 53A01190 
IFLAG = 0 53A01200 
IDT = IT - IBASE §3A01210 
IRHOT = IRHO 53A01220 
Cc IS HYDROMETER CORRECTION TO BE MADE (IF NO, BRANCH TO 140) 53A01230 
IF ( IHYDRO )} 101, 101, 140 53A01240 
Cc 53A01250 
C COMPUTE HYDROMETER CONSTANT AT DELTA T 53A01260 
Cc HYC = 1. - .000023*(DEGC-15) - .00000002*(DEGC-15)**2 §3A01270 
101 IRD = 5 §3A01280 
IF (IDT) 105, 110, 110 53A01290 
105 IRD = -5 53A01300 
110 IH1 = (2300 * IDT + IRD) / 10 53A01310 
IH2 = (2 * IDT * IDT + 500) ¢/ 1000 53A01320 
IHYC = 1000000000 - IH1i - IH2 53A01330 
Cc 53A01340 
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Cc APPLY HYDROMETER CONSTANT TO DENSITY AT TEMPERATURE DEGC 53A01350 
IRD = IRHO * 10 53A01360 
CALL MPY53AC IRD, IHYC, IRHOT, 10000) 53A01370 
IRHOT = ( IRHOT + 50 ) / 100 53A01380 
Cc 53A01390 
140 JRHOT = IRHOT * 10000 53A01400 
Cc 53A01410 
IRHO15 = IRHOT 53A01420 
CG 53A01430 
KRHO = 0 53A01440 
Cc 53A01450 
NP = 0 53A01460 
Cc 53A01470 
300 NP = NP + 1 53A01480 
Cc 53A01490 
CALL ALF53A(IRHO15,KO,K1,IALF) 53A01500 
Cc 53A01510 
CALL VCF53A(IALF,IDT,IVCF) 53A01520 
Cc 5§3A01530 
IVCF = ( IVCF + 50 ) / 100 53A01540 
CG 53A01550 
CALL DIV53A( JRHOT , IVCF , IRHO15 , 1000) 53A01560 
Cc 53A01570 
G 53A01580 
IF ( IABS (IRHO15 - KRHO ) - 50 ) 500, 320, 320 53A01590 
Cc 53A01600 
320 KRHO = IRHO15 53A01610 
Cc 53A01620 
IRHO15 = ( IRHO15 + §& ) / 10 53A01630 
Cc 53A01640 
IF ( NP - 20 ) 300, 400, 400 53A01650 
Cc 53A01660 
400 IFLAG = -1 §3A01670 
RHO1T5 = -999.9 §3A01680 
WRITE(NOUT,6001) DEGC, RHO §3A01690 
6001 FORMAT(5HO AT ,F6.2,15H DEGREES C AND ,F7.1, 70H KG/CU METRE, A5&3A01700 
1 CORRESPONDING DENSITY AT 15 C COULD NOT BE DETERMINED. ) §3A01710 
RETURN 53A01720 
G 53A01730 
500 IF ( IRHO15 - LIM1 ) 510, 510, 900 53A01740 
510 IF ( IRHO15 - LIM2 ) 900, 520, 520 53A01750 
CG 53A01760 
520 JRHOT = ( IRHO15 + 50 ) / 100 §3A01770 
Cc 53A01780 
G FLOATING POINT VALUE ROUNDED TO NEAREST 0.1 53A01790 
RHO15 = FLOAT(JRHOT) / 10. 53A01800 
CG IS RHO LESS THAN 758.0 (IF NO, BRANCH TO 770) 53A01810 
IF ( IRHO - IERHO ) 760, 760, 770 53A01820 
Cc SET SWITCH INDICATING EXTRAPOLATION REGION 53A01830 
760 IFLAG = 1 53A01840 
RETURN 53A01850 
Cc IS RHO GREATER THAN 778.5 (IF YES, BRANCH TO 790) 53A01860 
770 IF ( IRHO - IBP1 ) 780, 780, 790 53A01870 
C IS TEMP GREATER THAN 60. (IF YES, BRANCH TO 760) 53A01880 
780 IF ( IT - IEP1 ) 820, 820, 760 53A01890 
Cc IS RHO GREATER THAN 824. (IF YES, BRANCH TO 810) 53A01900 
790 IF ( IRHO - IBP2 ) 800, 800, 810 §3A01910 
Cc IS TEMP GREATER THAN 90. (IF YES, BRANCH TO 760) §3A01920 
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800 IF (¢ IT - IEP2 ) 820, 820, 760 53A01930 

Cc IS TEMP GREATER THAN 120. (IF YES, BRANCH TO 760 53A01940 
810 IF ( IT - IEP3 ) 820, 820, 760 53A01950 

Cc §3A01960 
820 CONTINUE 53A01970 
RETURN 53A01980 

Cc SET SWITCH INDICATING OUTSIDE RANGE OF TABLE 53A 5§3A01990 
900 IFLAG = -1 53A02000 
RHO15 = -999.9 5§3A02010 
RETURN 53A02020 

END 53A02030 
SUBROUTINE DIV53A(INUM, IDENOM, IRES, ISCALE) 53A02040 

Cc 53A02050 
Cc THIS SUBROUTINE IS DESIGNED TO PRODUCE ADDITIONAL 53A02060 
c ACCURACY FROM AN INTEGER DIVIDE WHERE THE NUMERATOR 53A02070 
Cc IS ISCALE GREATER THAN THE DENOMINATOR. THE SUBROUTINE 53A02080 
CG ASSUMES PROPER SCALING OF BOTH THE INPUT NUMERATOR 53A02090 
C AND DENOMINATOR AND WILL RETURN THE RESULTS MULTIPLIED §3A02100 
Cc BY ISCALE. §3A02110 
Cc §3A02120 
IRES1=INUM/ IDENOM 53A02130 
IRES2=( INUM- IRES1 * IDENOM) * ISCALE/ IDENOM 53A02140 
IRES=IRES1 * ISCALE+IRES2 §3A02150 
RETURN §3A02160 

END §3A02170 
SUBROUTINE ALFS53A(IRHO,KO,K1,IALF) 53A02180 

Cc 53A02190 
Cc THIS SUBROUTINE IS DESIGNED TO CALCULATE ALPHA FOR §3A02200 
Cc USE IN DETERMINATION OF VOLUME CORRECTION §3A02210 
Cc FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE AS INTEGERS, 5§3A02220 
Cc THE SUBROUTINE RETURNS WITH A 8 DIGIT VALUE §3A02230 
Cc §3A02240 
Cc INPUT VARIABLES §3A02250 
Cc IRHO=DENSITY*100 (KILOGRAMS/CUBIC METRE) §3A02260 
Cc KO ,Ki= COEFFICIENTS OF DESIRED CURVE * 10000 5§3A02270 
Gc §3A02280 
Cc ALGORITHM- 53402290 
G ALPHA=KO / RHO* * 2+K1 /RHO §3A02300 
Cc §3A02310 
Cc CALCULATE K1/RHO 53A02320 
Cc §3A02330 
INUM=K1 * 10000 §3A02340 

CALL DIV53A( INUM, IRHO, TALF1, 10000) 5§3A02350 

Cc §3A02360 
Cc CALCULATE K0O/RHO**2 §3A02370 
Cc 5§3A02380 
INUM=KO*100 §3A02390 

CALL DIV53AC INUM, IRHO, IALFS, 10000) 5§3A02400 

CALL DIVS53A(CIALFS, IRHO, IALF2 , 10000) 53A02410 
IALF=(IALF1+IALF2+500 )/1000 53A02420 
RETURN §3A02430 

END §3A02440 


Copyright por American Petroleum Institute 
Mon Feb 07 13:43:05 2005 


API MPMS*11-1 VOL*X 80 MM 0732290 0526157 £74 


X-292 CHAPTER 11—Puysicat Properties DATA 
SUBROUTINE VCF53A(IALF,IDT,IVCF) 53A02450 
Cc 53A02460 
Cc THIS SUBROUTINE IS DESIGNED TO CALCULATE VOLUME 53A02470 
Cc CORRECTION FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE 53A02480 
Cc AS INTEGERS, THE SUBROUTINE RETURNS WITH A 8 53A02490 
Cc OR 9 DIGIT VALUE DEPENDENT UPON WHETHER IDT §3A02500 
Cc IS POSITIVE OR NEGATIVE. §3A02510 
Cc §3A02520 
Cc ALGORITHM - §3A02530 
c VCF=EXP( -ALPHA*DT(1.0+0.8*ALPHA*DT ) ) 53A02540 
Cc §3A02550 
Cc CALCULATE ALPHA*DT 53A02560 
Cc §3A02570 
ITERM1=IALF*IDT §3A02580 
Cc §3A02590 
Cc CALCULATE 0.8*ALPHA*OT 53A02600 
Cc 5§3A02610 
ITERM2=ITERM1 /5*4 §3A02620 
Cc 53A02630 
Cc CALCULATE EXPONENT -ALPHA*DT(1.0+0.8*ALPHA*DT ) §3A02640 
Cc §3A02650 
CALL MPYS3A(ITERM1 , ITERM2 , ITERM3 , 10000) 53A02660 
Cc §3A02670 
ITERM3 = ITERM1 + (ITERM3+5)/10 §3A02680 
IX = -ITERM3/10 §3A02690 
Cc 53A02700 
Cc CALCULATE EXPONENTIAL(FIRST 7 TERMS OF POWER SERIES) §3A02710 
Cc §3A02720 
ISUM1=100000000+IX §3A02730 
CALL MPYS3A( IX, IX, ISUM2, 1000) §3A02740 
ISUM2=( (ISUM2+50)/100)/2 53A02750 
CALL MPY53A( IX, ISUM2 , ISUM3, 1000) 53A02760 
ISUM3=( (ISUM3+50)/100)/3 §3A02770 
CALL MPYS53A( IX, ISUM3 , ISUM4 , 1000) §3A02780 
ISUM4=( (ISUM4+50)/100)/4 §3A02790 
CALL MPYS53A( IX, ISUM4 , ISUM5, 1000) §3A02800 
ISUM5=( (ISUM5+50)/100)/5 §3A02810 
CALL MPY53A( IX, ISUMS5 , ISUM6, 1000) 53A02820 
ISUM6=( (ISUM6+50)/100)/6 §3A02830 
IVCF=ISUM1+ISUM2+ISUM3+I1 SUM4+1SUM5+ISUM6 §3A02840 
RETURN 53A02850 
END §3A02860 
SUBROUTINE MPYS3A(IX,1Y,IZ, ISCALE) §3A02870 
Cc THIS ROUTINE PERFORMS INTEGER MULTIPLICATION. THE TOTAL 53A02880 
Cc NUMBER OF DIGITS IN IX AND IY MUST NOT EXCEED 17. OTHER 53A02890 
Cc WISE, OVERFLOW WILL OCCUR. §3A02900 
Cc §3A02910 
IU1 = IX / ISCALE §3A02920 
Kt = ISCALE * IvU1 53A02930 
IV1 = IX - Kit §3A02940 
IU2 = IY / ISCALE 53A02950 
K2 = ISCALE * [U2 53A02960 
IV2 = IY - K2 §3A02970 
K3 = IU1 * IV2 + IU2 * IV1 + IV1 * IV2 / ISCALE §53A02980 
IZ = (K3 + ISCALE/2) / ISCALE + IUi * IvU2 §3A02990 
RETURN §3A03000 
END §3A03010 
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11.1.53.3 IMPLEMENTATION PROCEDURE FOR SUBROUTINE TAB53A 


The use of the computer has gained widespread acceptance throughout the 
petroleum industry. Computers are used for accounting purposes, in 
process simulation and modeling, data retrieval and evaluation, and are 
now being used extensively in custody transfer measurements and trans- 
actions. In 1968, the American Petroleum Institute recognized the need 
for incorporating existing petroleum measurement tables into computer 
code. In June of 1973, a subroutine for TABLE 6, Volume Reduction to 
60 °F, was made available. Since then many of the other standardized 
petroleum measurement tables have been made available as computer 
subroutines. 


However, the computerization of an existing table of numbers proved to be 
a very difficult task. For instance, it proved to be impossible to use 
the mathematical expression that was supposedly used to generate the table 
values and calculate values identical to the tabular entries. This was 
because some of the values entered into the tables had been slightly 
modified and also because the procedures used to round the calculated 
values were inconsistent. 


The only way to overcome these problems in a.computer subroutine was to 
manually locate all the table entries that did not agree with the calcu- 
lated values. and add extensive "exception tables" to the code. This made 
the code lengthy and somewhat cumbersome to modify and to some extent 
restricted its use to larger computing systems. 


The working group for TABLE 6 revision realized the importance of elimi- 
nating any potential for such problems in the future and also recognized 
the need to have computer subroutines available at the time the new 
petroleum measurement tables were released. The working group decided to 
outline an explicit implementation procedure to be followed when using the 
new correlation for volume correction factors. This implementation 
procedure would then be the Standard rather than a set of equations or set 
of tables. Standardization of an implementation procedure implies 
standardization of the set of mathematical expressions used within the 


computer code. Absolute adherence to the outlined procedure will insure 
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that all computers and computer code of the future, meeting the stated 
specifications and restrictions, will be able to produce identical 
results. Such a procedure allows for the maximum machine and code 


independence. 


The implementation procedure as described in the following text can by 
careful and deliberate application of numerical analysis be followed 
through the majority of language and word sizes in present and anticipated 
use. To follow the standard procedure means absolute and unwavering 
adherence to the number of digits specified at each step and to the 


calculational procedure as outlined. 


In the procedure, the nomenclature digits (XXX.XX) means mathematically 
significant digits as defined in ASTM F380-76. In the previous example, 
all five (5) digits in the parenthesis are mathematically significant. 


At various steps in the implementation procedure, calculated results are 
rounded or truncated. When rounding a result to fewer digits than the 
total number available, the following procedure which was used overrides 
that of ASTM E380-76: 


a) when the first digit to be discarded is less than 5, the last digit 
retained is not changed. 
b) when the first digit to be discarded is greater than 4, the last 


digit retained is increased by one unit. 


The procedure used in truncating a result to fewer digits than the total 
number available is to simply discard all digits following the last digit 
to be retained and leaving the last retained digit unchanged. 


Another specification is that the cmefficients used to relate the thermal 
expansion coefficient at 15 °C to the 15 °C density base and all other 
constants needed in the correlation mist be used to exactly the number of 
digits specified. 
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Step l: 


Step 2: 


Step 3: 


Step 4: 


Step 5: 


Step 6: 


Step 7: 


SECTION 1—VoOLUME CORRECTION Factors 


Calculation Procedure 


Round input variables 

a) Round density to nearest 0.5 Kg/m3 
RHO = XXXX.X rounded 

b) Round observed temperature to nearest 0.05 °C 
T = XXX.XX rounded 


Calculate difference in cbserved temperature and 
base temperature 

BASE TEMPERATURE = 15.00 

DELTA = XXX.XX - 15.00 = XXX.XX 


Compute hydrometer correction term (optional) 
HYC = 1.0 - .000023 * DELTA - .00000002 * DELTAZ 
TERM] = .000023 * DELTA = .OOXXXXXXX rounded 
TERM2 = .00000002 * DELTA? = .000XXXXXX rounded 
HYC = 1.000000000 -— .OOXXXXXXX - .QOOXXXXXX = X.XXXXXXXXX 


Application of hydrometer correction 
RHOT = RHO * HYC = XXXX.XX rounded 


Initialize 15 °C density 
RHOL5 = RHOT = XXXX.XX 


Calculate coefficient of thermal expansion 

ALPHA = Ko/RHO152 + K)/RHO15 

Kg XXXX . XXXX 

Ky = »XXXX 
TERM] = Ko/RHOL5 = .XXXXXXXX truncated 
TERM2 = TERML/RHO15 = .OOXXXXXXXX truncated 
TERM3 = Kj/RHO15 = .OOXXXXXXXX truncated 
ALPHA = TERM2 + TERM3 = .000OXXXX rounded 


Calculate volume correction factor 
VCF = EXP(-ALPHA*DELTA - 0.8*ALPHA2*DELTAZ) 
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a) calculate exponent 
TERM] = ALPHA * DELTA »XXXXXXXXX truncated 
TERM2 = 0.8 * TERM] = .XXXXXXXXX truncated 
TERM3 = TERMI * TERM2 = .XXXXXXXXX rounded 
TERM4 - TERM] - TERM3 = .XXXXXXXX truncated 


b) calculate exponential 
VCF = EXP(TERM4) = X.XXXXXX rounded 
(Must use at least the first seven terms of 
the power series expansion.) 


Step 8: Calculate 15 °C density 
RHOLS = RHOT/VCF = XXXX.XXX truncated 


Since the equation for p 60 cannot be solved explicitly, a successive 
approximation iterative scheme is used to obtain a solution. The initial 
estimate of Pis is the value of the density at observed temperature t. 
This approximation is substituted on the right hand side of the equation 
to obtain a second value approximation. This process of substituting into 
the right hand side of the equation and estimating a new value from the 
other is repeated until two consecutive results are in agreement to the 
desired degree of accuracy. In subroutine TAB53A, a converged solution 
is reached when the change in density is less than 0.05 Kg/m? in two 
successive passes. 


The 1980 integer FORTRAN code issued by API contain both an integer 
division and an integer multiplication algorithm. A description of each 
follows. 


INTEGER MULTIPLICATION PROCEDURE 
(For 32 Bit Arithmetic) 


DATA DEFINITION 
X,Y are integer numbers that are equal to or less than 2*109 (slightly 
less than 231), A larger value may cause overflow. In addition, the 
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total number of digits in X and Y must mt exceed 17, otherwise overflow 
will occur. Z is the product (X*Y) scaled by 1078, i.e. Z = (x*y) /108. 


Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically, at least 15 digits 
are needed to obtain 6 digit precision, 16 for 7 and 17 for 8. The 
largest value of X and Y that may be used are 2 000 000 000 and 

99 999 999. (Either values may be used for X and Y). 


CALCULATION 
X/10000 = Ul 
10000 * Ul 
X-Kl = V1 
¥/10000 = U2 
10000 * U2 = Kk2 
Y-K2 = V2 
(U1*V2) + (U2*V1) + (V1*V2/10000) = K3 
(K3 + 5000)/10000 + Ul*U2 = 2 


WW 
a 


Note: 2% has been scaled by 10-8 and may have to be rescaled before use. 


TOTAL DIGITS INX ANDY 12 13 14 #15 16 «17 
DIGITS IN PRODUCT, 2 3-4 4-5 56 67 7-8 8-9 


INTEGER DIVISION PROCEDURE 
(For 32 Bit Arithmetic) 


DATA DEFINITION 
X,Y are integer numbers such that X is equal to or less than 231 -1 and 
Y is of order of magnitude 104 less than X. 


R is the quotient of X/Y scaled by 104, i.e. R= X/y * 104. 
Note: If it is desirable to cbtain maximum precision, X and Y may be scaled 


up prior to use of the procedure. Typically, the more digits that are 
carried in both X and Y, the more accurate digits on output. 
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CALCULATION 
X/Y = Ul 
Ul * Y= 
¥ = ew 
V1/Y = U2 
Ul * 10000 + U2=R 


Kl 
Vi 


ul 


Note: R has been scaled by 104 and may need to be rescaled before use. 


Examples for Checkout 


The following examples illustrate how the implementation procedure is 
actually used to determine the value of a density at 15 °C for Generalized 
Crude Oils. The examples carry the computations through each step of the 
procedure showing the results of each mathematical operation. The computed 
values are given to the required precision and it is indicated if a value 
has been rounded or truncated. The step-by-step calculations are shown for 
the first iteration then a table is presented which summarizes the 


intermediate values used to obtain a converged solution. 


These examples are to be used as test cases for subroutine TAB53A to verify 
the computer code has not been altered or incorrectly reproduced. The 


routine has been designed to execute on machines that use word size of 

32-bits or greater. Any new development of computer code that is designed 
to follow the standard implementation procedure must insure that the values 
computed at each step in the procedure are identical to those given in the 


examples. 


EXAMPLE 1 
Step 1: Round input variables 
a) Round density to nearest 0.5 
RHO = 875.5 rounded 
b) Round observed temperature to nearest 0.05 
T = 120.00 rounded 
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Step 2: Calculate difference in observed temperature and base temperature 
BASE TEMPERATURE = 15.00 
DELTA = 120.00 - 15.00 = 105.00 


Step 3: Compute hydrometer correction term 
HYC = 1.0 - .000023 * DELTA - .00000002 * DELTA2 
TERML = .000023 * DELTA = .002415000 rounded 
TERM2 = .00000002 * DELTA2 = .000220500 rounded 
HYC = 1.000000000 - TERM] —- TERM2 = .997364500 


Step 4: Application of hydrometer correction 
RHOT = RHO * HYC = 873.19 rounded 


Step 5: Initialize 15 °C density 
RHO15 = RHOT = 873.19 


Step 6: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO152 + Kj /RHOLS 
Ko = 613.9723 (as of May 1, 1980) 
K; = 0.0 (as Of May 1, 1980) 
TERM1 = Ko/RHO15 
TERML = .70313711 truncated 
TERM2 = TERML/RHO15 
TERM2 = .0008052509 truncated 
TERM3 = K)/RHOL5S 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0008053 rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA * DELTA — 0.8 * ALPHA2 * DELTA2) 
a) Calculate exponent 
TERML ALPHA * DELTA = .084556500 truncated 
TERM2 = 0.8 * TERMI = .067645200 truncated 
TERM3 = TERM] * TERM2 = .005719841 rounded 
TERM4 = ~TERM] - TERM3 = -.09027634 truncated 
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b) Calculate exponential 
VCF = EXP(TERM4) = .913679 rounded 
(must use the first seven terms of the power series 
expansion of eX) 


Step 8: Calculate 15 °C density 
RHO15 = RHOT/VCF = 955.685 truncated 


TABLE 1 shows the results of each iteration. 


TABLE 1 
ITERATION RHOL5 (N) ALPHA VCF RHOL5(N+1) 
1 873.19 0008053 -913679 955.685 
2 955.69 -0006722 -928146 940.789 
3 940.79 -0006937 -925813 943.160 
4 943.16 -0006902 -926193 942.773 
5 942.77 -0006908 -926128 942.839 
6 942.84 -0006907 -926139 942.828 
RHOLS = 942.8 rounded to nearest 0.1 
EXAMPLE 2 


Step 1: Round input variables 
a) Round density to nearest 0.5 
RHO = 693.0 rounded 
b) Round observed temperature to nearest 0.05 
T = 11.40 rounded 


Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 15.00 
DELTA = 11.40 - 15.00 = -3.60 


Step 3: Compute hydrometer correction term 
HYC 1.0 - .000023 * DELTA - .00000002 * DELTA 
TERM] = .000023 * DELTA = ~.000082800 rounded 


2 
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TERM2 = .00000002 * DELTA? = .000000259 rounded 


HYC 1.000000000 - TERM] -— TERM2 = 1.000082541 


Step 4: Application of hydrometer correction 
RHOT = RHO * HYC = 693.06 rounded 


Step 5: Initialize 15 °C density 
RHOL5 = RHOT = 693.06 


Step 6: Calculate mefficient of thermal expansion 
ALPHA = Kg/RHOIS” + K1/RHO1S 
Kg = 613.9723 (as of May 1, 1980) 
K} = 0.0 (as of May 1, 1980) 
TERM] = Ko/RHO15 
TERM] = .88588621 truncated 
TERM2 = TERM1/RHO15S 
TERM2 = .0012782244 truncated 
TERM3 = K1/RHO15 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0012782 rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA? * DELTA2) 
a) Calculate exponent 
TERMI = ALPHA * DELTA = —.004601520 truncated 
TERM2 = 0.8 * TERMI = —.003681212 truncated 
TERM3 = TERM. * TERM2 = .000016939 rounded 
TERM4 = -TERML - TERM3 = .00458458 truncated 
Calculate exponential 
VCF = EXP(TERM4) = 1.004595 rounded 
(must use the first seven terms of the power series 


b 


— 


expansion of e*) 


Step 8: Calculate 15 °C density 
RHOL5 = RHOT/VCF = 689.889 truncated 
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TABLE 2 shows the results of each iteration. 


TABLE 2 
ITERATION RHO15 (N) ALPHA VCF RHOL5(N+1) 
1 693.06 -0012782 1.004595 689.889 
2 689.89 -0012900 1.004637 689 .861 


RHO15 = 689.9 rounded to nearest 0.1 


EXAMPLE 3 
Step 1: Round input variables 
a) Round density to nearest 0.5 
RHO = 644.0 rounded 
b) Round observed temperature to nearest 0.05 
T = 84.45 rounded 


Step 2: Calculate difference in observed temperature and hase 
temperature 
BASE TEMPERATURE = 15.00 
DELTA = 84.45 — 15.00 = 69.45 


Step 3: Compute hydrometer correction term 
HYC = 1.0 ~ .000023 * DELTA — .00000002 * DELTA2 
TERML = .000023 * DELTA = .001597350 rounded 
TERM2 = .00000002 * DELTA = .000096466 rounded 
HYC = 1.000000000 - TERMI - TERM2 = .998306184 


Step 4: Application of hydrometer correction 
RHOT = RHO * HYC = 642.91 rounded 


Step 5: Initialize 15 °C density 
RHOI5 = RHOT = 642.91 


Step 6: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO152 + K1/RHO15 
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Kg = 613.9723 
Ky = 0.0 
TERMI = Kg/RHO1S 


(as of May 1, 1980) 
(as of May 1, 1980) 


TERM] = .95498950 truncated 


TERM2 = TERM1/RHO15 


TERM? = .001485417 truncated 


TERM3 = Kj/RHOL5 
TERM3 = 0.0 


ALPHA = TERM2 + TERM3 = .0014854 rounded 


Calculate volume correction factor 


VCF = EXP(-ALPHA * DELTA 
a) Calculate exponent 


TERM1 = ALPHA * DELTA 
TERM2 = 0.8 * TERMI = 
TERM3 = TERM1 * TERM2 
TERM4 = 


b) Calculate exponential 


- 0.8 * ALPHA2 * DELTAZ) 


= .103161030 truncated 
.082528824 truncated 
= .008513758 rounded 


-TERM1 - TERM3 = -—.1167489 truncated 


VCF = EXP(TERM4) = .894335 rounded 


(must use the first seven terms of the power series 


expansion of e*%) 


Calculate 15 °C density 


RHO15 = RHOT/VCF = 718.869 truncated 


TABLE 3 shows the results of each iteration. 


TABLE 3 
ITERATION RHOL5(N) ALPHA VCF RHOL5(N+1) 
ul 642.91 -0014854 -894335 718.869 
2 718.87 -0011881 -915797 702.022 
3 702.02 -0012458 -911641 705.222 
4 705.22 -0012345 2912455 704.593 
5 704.59 -0012367 -912296 704.716 
6 704.72 -0012363 0912325 704 .694 


RHO1LS = 704.7 rounded to nearest 0.1 
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EXAMPLE 4 
Step 1: Round input variables 
a) Round density to nearest 0.5 
RHO = 625.5 rounded 
b) Round observed temperature to nearest 0.05 
T = 53.05 rounded 


Step 2: Calculate difference in cbserved temperature and base 
temperature 
BASE TEMPERATURE = 15.00 
DELTA = 53.05 -— 15.00 = 38.05 


Step 3: Compute hydrometer correction term 
HYC =1.0 - .000023 * DELTA - .00000002 * DELTA2 


TERM1 = .000023 * DELTA = .000875150 rounded 
TERM2 = .00000002 * DELTA2 = .000028956 rounded 
HYC = 1.000000000 - TERM] - TERM2 = .999095894 


Step 4: Application of hydrometer correction 
RHOT = RHO * HYC = 624.93 rounded 


Step 5: Initialize 15 °C density 
RHOL5 = RHOT = 624.93 


Step 6: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO1L52 + K1/RHOL5 
Kg = 613.9723 (as of May 1, 1980) 
Kj = 0.0 (as of May 1, 1980) 
TERM] = Ko/RHO15 
TERM] = .98246571 truncated 
TERM2 = TERM1/RHO15 
TERM2 = .0015721212 truncated 
TERM3 = K)/RHO15 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0015721 rounded 
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Step 7: Calculate volume correction factor 

VCF = EXP(-ALPHA * DELTA — 0.8 * ALPHA2 * DELTA 

a) Calculate exponent 
TERM] = ALPHA * DELTA = .059818405 truncated 
TERM2 = 0.8 * TERMI = .047854724 truncated 
TERM3 = TERM] * TERM2 = .002862593 rounded 
TERM4 = -TERM| - TERM3 = ~.06268099 truncated 

b) Calculate exponential 
VCF = EXP(TERM4) = .939243 rounded 
(must use the first seven terms of the power series 


2) 


expansion of eX) 


Step 8: Calculate 15 °C density 
RHO15 = RHOT/AVCF = 665.354 truncated 


TABLE 4 shows the results of each iteration. 


TABLE 4 
ITERATION RHO1L5 (N) ALPHA VCF RHO1L5(N+1) 
1 624 .93 -0015721 939243 665.354 
2 665.35 -0013869 946486 660.263 
3 660 .26 -0014084 945646 660.849 
4 660.85 -0014059 -945744 660.781 
5 660.78 -0014062 0945732 660.789 


RHOL5 = 660.8 rounded to nearest 0.1 


EXAMPLE 5 
Step 1: Round input variables 
a) Round density to nearest 0.5 
RHO = 779.0 rounded 
b) Round observed temperature to nearest 0.05 
T = 25.00 rounded 
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Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 15.00 
DELTA = 25.00 - 15.00 = 10.00 


Step 3: Compute hydrometer correction term 
HYC = 1.0 - .000023 * DELTA — .00000002 * DELTA2 
TERM] = .000023 * DELTA = .000230000 rounded 
TERM2 = .00000002 * DELTA? = .000002000 rounded 
HYC = 1.000000000 + TERMI - TERM2 = .999768000 


Step 4: Application of hydrometer correction 
RHOT = RHO * HYC = 778.82 rounded 


Step 5: Initialize 15 °C density 
RHO15 = RHOT = 778.82 


Step 6: Calculate coefficient of thermal expansion 

ALPHA = Kg/RHO152 + K1/RHO15 
Kg = 613.9723 (as of May 1, 1980) 
K; = 0.0 (as of May 1, 1980) 

TERM] = Kg/RHO15 

TERM] = .78833658 truncated 

TERM2 = TERM1/RHO15 

TERM2 = .0010122192 truncated 

TERM3 = Kj/RHO15S 

TERM3 = 0.0 

ALPHA = TERM2 + TERM3 = .0010122 rounded 


Step 7: Calculate volume oorrection factor 
VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA? * DELTA2) 
a) Calculate exponent 
TERM] = ALPHA * DELTA = .010122000 truncated 
TERM2 = 0.8 * TERM] = .008097600 truncated 
TERM3 = TERML * TERM2 = .000081964 rounded 
TERM4 = ~TERM] - TERM3 = -.01020396 truncated 
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b) Calculate exponential 


X-307 


VCF = EXP(TERM4) = .989848 rounded 
(must use the first seven terms of the power Series 


expansion of e*) 


Step 8: Calculate 15 °C density 


RHO1L5 = RHOTAVCF = 786.807 truncated 


TABLE 5 shows the results of each iteration. 


TABLE 5 
ITERATION RHOL5(N) ALPHA 
l 778 82 -0010122 
2 786.81 -0009918 
3 786 .64 20009922 


VCF RHO15(N+1) 
989848 786.807 
-990053 786 .644 
-990049 786.647 


RHO15 = 786.6 rounded to nearest 0.1 


11.1.53.4 TABLE 53B—GENERALIZED PROD- 
UCTS, CORRECTION OF OBSERVED 
DENSITY TO DENSITY AT 15°C 


TABLE 53B gives the value of density in kilogram 
per cubic metre at 15°C corresponding to a hydrometer 
reading at observed temperatures other than 15°C. In 
converting the hydrometer reading at the observed tem- 
perature to the corresponding density at 15°C, two cor- 


rections are necessary: the first arises from the change. 


in volume of the glass hydrometer with temperature _ 
(stem correction) and the second from the change in. 


volume of the products with temperature. Both have 

been applied in this table. The values of density at 15°C 

in this table are the result of a computer procedure 

which is the Standard (see 11.1.53.5 and 11.1.53.6). 
The temperature ranges of this table are: 


Density, kg/m? °C 
653 to 778 —18to 95 
778 to 824 —18 to 125 
824 to 1075 —18 to 150 


The values of density at 15° C given in this table are 
based on data from the U.S. National Bureau of Stan- 
dards and from other published data. Portions of the 
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density and temperature ranges represent areas beyond 
these data. Thus, mathematical techniques were em- 
ployed to extrapolate beyond the density and tempera- 
ture ranges of the given data to determine the value of 
the density at 15°C for these areas. These values are 
denoted by an asterisk (*). Extension of this table 
beyond the ranges shown is not recommended. 

Increments used in this table for determining density 
at 15°C are 0.25°C and 2 kg/m’. Interpolation with tem- 
perature is not intended since there is no practical meth- 
od of interpolation that will produce the accuracy ob- 
tainable from the Standard. However, interpolation 
with density to one additional significant digit can be 
reasonably made. Interpolation is not required if the 
TABLE 53B results are to be used as entries to TABLE 
S4B. 

Some countries which have historically used a metric 
system have retained for field use density units such as 
g/mL, g/cc, or kg/L. This practice was consistent with 
previously published API/IP measurement tables which 
have been replaced by this 1980 edition. In these in- 
stances where field measurements of density are re- 
corded in g/mL, g/cc, or kg/L, multiply the measure- 
ments by 1000 to obtain kg/m? prior to entering TABLE 
53B. 
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This table must be entered with a hydrometer meter constant, as defined in the Report on the 
reading measured with a soft glass hydrometer Development, Construction, Calculation, and Pre- 
calibrated at 15°C and with an observed tempera- paration of the ASTM-IP Petroleum Measurement 
ture. Tables (1960), varies with temperature according 
A correction to the glass hydrometer reading to the following: 
has been incorporated into the table to account HYC = 1 — 0.000023(4 — 15°C) 
for the thermal expansion of glass. The hydro- — 0.00000002(¢ — 15°C)? 


11.1.53.55 PROGRAM DOCUMENTATION FOR SUBROUTINE TAB53B— 
GENERALIZED PRODUCTS, CORRECTION OF OBSERVED 
DENSITY TO DENSITY AT 15°C 


Subroutine Title: 


Description: 


Program Responsibility: 


Date Issued: 


Language: 


Reference: 


ABSTRACT 
TAB53B - TABLE 53B, Generalized Products, Density 
Correction to 15 °C. 
This subroutine is designed to calculate the 
density at 15 °C corresponding to densities 
observed at temperatures other than 15 °C. 
American Petroleum Institute 
Measurement Coordination 
2101 L Street N.W. 
Washington, D.C. 20037 
August 1980 


FORTRAN, ANSI/ASA Standard 


API Standard 2540, TABLE 54, 11.1.54 


THIS SUBROUTINE WAS DEVELOPED USING THE MATHEMATICAL ALGORITHMS 
AND SPECIFICATIONS DESCRIBED IN THE DOCUMENT PROCEDURE 11.1.53.6. 
ANY MODIFICATION TO THIS SUBROUTINE MUST RIGIDLY ADHERE TO THE SAME 
ALGORITHMS AND SPECIFICATIONS. 
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11.1.53.5.1 Introduction 


TAB53B is a computer subroutine designed to calculate for substances 
characterized as generalized products the value of density at 15 degrees 
Celsius (°C) corresponding to densities observed at temperatures other 
than 15 °C. ‘The subroutine accepts as input the observed density rounded 
to the nearest 0.5 Kg/m3 and the temperature rounded to the nearest 

0.05 °C. If either input value has not been properly rounded, the sub- 
routine will round the values and return the corrected values. ‘The sub- 
routine returns the value of the density at 15 °C rounded to the nearest 
0.1 Kg/m3 and a status flag for user convenience. The flag is set to -1 
if an error condition occurs and to +1 if the value of the density at 

15 °C an extrapolation. The limits of the correlation including the 
extrapolated region are depicted in Figure X-15. The calling program must 
check the flag and provide user with appropriate warning message or 
program termination. The flag is set to zero when the input variables and 
the density at 15 °C are within the limits of the correlation. 


11.1.53.5.2 Subroutine Specifications 


The range of application is: 


Density, Kg/m3 Temperature, °C 


653.0 to 778.5 -18.00 to 90.00 
779.0 to 824.0 -18.00 to 125.00 
824.5 to 1075.0 -18.00 to 150.00 


Referenced modules: ALP53B, DIV53B, MPY53B, VCF53B 


Fortran functions: FLOAT, IABS 


Average execution time: 860 entries/CPU second 
IBM 370/168 


The subroutines are written in ANSI/ASA FORTRAN using integer arithmetic. 
The size and storage requirements are: 


1. Compilable source statements 170 
2. Decimal storage bytes 4060 
3. Words 1015 
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11.1.53.5.3 Calling Sequence 
CALL TAB53B (RHO, DEGC, IHYDRO, RHO15, IFLAG) 
INPUT DESCRIPTION 


RHO - Density at observed temperature 
(RHO returned will be rounded to nearest 0.5 Kg/m3) 


DEGC -—- Observed temperature, °C 
(DEGC returned will be rounded to nearest 0.05 °C) 


IHYDRO - Hydrometer switch 
0: The density was observed with a glass hydrometer 
and a hydrometer correction is needed 
1: The density was determined from an on-line 
densitometer and a hydrometer correction is not 


needed. 
OUTPUT DESCRIPTION 
RHO15 - Corresponding density at 15 °C rounded to nearest 0.1 Kg/m3 


IFLAG - Status Code 
0: InmMdicates input variables and calculated results are 
within the range of application 
1: Indicates input variables are in extrapolated region 
-1: Indicates input variables or calculated results are 


outside the range of application 


NOTE: If a non—convergence occurs, the subroutine prints the following 


message: 


AT XXX.XX DEGREES C AND XXX.X KG/CU METRE, A CORRESPONDING 
DENSITY AT 15 °C COULD NOT BE DETERMINED. 
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This message should not occur unless the code has heen altered or 
incorrectly reproduced. Follow Section 11.1.53.6, Implementation 
Procedure, and test the subroutine exactly as described. The 
status flag will be set to -1, RHO15S to -999.9, and program control 
returned to the calling routine. 


11.1.53.5.4 Method of Calculation 


This subroutine uses a convergence technique to determine the density at 
15 °C that corresponds to a density observed at some temperature other 
than 15 °c. 


The coefficient of thermal expansion at the base temperature of 15 °C is 


related to density at the base temperature by 


P15 


The values of the density at temperature t, Pp and a5 are used in the 


volume correction factor equation to compute P45: 


VCF =—— = EXP & At(l + 0.80; 5At) | 


15 
Thus OD, = Pys EXP [-a 5882 + 0.80 5At) | 


when = density at the base temperature 


P15 


At t - 15.0 


Since the equation for % a cannot be solved explicitly, a successive 
approximation iterative scheme is used to obtain a solution. The initial 
estimate of P15 is the value of the density at observed temperature t. 
This approximation is substituted into the right hand side of the equation 
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to obtain a second value approximation. This process of substituting into 
the right hand side of the equation and estimating a new value from the 
other is repeated until two consecutive results are in agreement to the 
desired degree of accuracy. In subroutine TAB53B, a converged solution is 
reached when the change in density is less than 0.05 Kg/m? in two 
successive passes. If the computed values of the 15 °C density is not on 
the same curve as the observed density, the parameters Kg and kj 

used to determine the coefficient of thermal expansion must be redefined 
and the convergence technique repeated. A straight line interpolation is 
used to connect the jet fuel curve with the gasoline curve between 770.5 
and 787.5 Kg/m3. When this occurs, the coefficient of the thermal 
expansion is defined as: 


= 2 
O15 = A+B [045 
where = -,00336312 (as of May 1, 1980) 
B = 2680.3206 (as of May 1, 1980) 
In this case, the tolerance is increased to 0.07 Kg/m> 


A full explanation of the equations and the values of the parameters 
Kg and K] may be found in API Standard 2540, TABLE 54, 11.1.54. 


11.1.53.5.5 Examples 


These examples are tutorial in nature and are not intended to be suffi- 
cient for subroutine checkout. The examples given in the Implementation 
Procedure, Section 11.1.53.6, are to be used for the computer checkout. 


Example 1 
RHO = 827.0 (observed with a glass hydrometer) 
DEGC = 28.25 
IHYDRO = 0 


CALL TAB53B (RHO,DEGC, IHYDRO ,RHO15 , IFLAG) 
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After the call: RHO = 827.0 
DEGC = 28.25 
IHYDRO = 0 
RHOI5 = 836.2 
IFLAG = 0 


Example 2 
RAO = 887.2 (observed with a glass hydrometer) 
DEGC = 147.01 
THYDRO = 0 


CALL TAB53B (RHO,DEGC,IHYDRO ,RHO1S , IFLAG) 


After the call: RHO = 887.0 
DEGC = 147.00 
IHYDRO= 0 
RHO1IS = 975.5 
IFLAG = 1 


Example 3 
RHO = 769.0 (observed with a glass hydrometer) 
DEGC = 98.00 
IHYDRO = 0 


CALL TAB53B (RHO,DEGC, HYDRO ,RHO15 , IFLAG) 


After the call: RHO = 769.0 
DEGC = 98.00 
IHYDRO = 0 
RHO1I5 = -999.9 
IFLAG = -1 
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11.1.53.5.6 FLOWCHART 
INPUT: DENSITY AND 
OBSERVED TEMPERTURE 
ROUND INPUT DATA 
TO SPECIFICATIONS 


DATA WITHIN 


SET STATUS FLAG = -1 


BOUNDS OF NO AND 15°C DENSITY = ~-999.9 
CORRELATION RETURN 
YES 
CALCULATE DELTA T 
NEED 
NO 


HYDROMETER 
CORRECTION 


COMPUTE HYDROMETER CORRECTION 


APPLY HYOROMETER CORRECTION TO DENSITY 


SELECT APPROPRIATE KO AND K1 CONSTANTS 


INITIALIZE 15°C DENSITY 
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CALCULATE ALPHA 
CALCULATE VCF 


CALCULATE NEW 15"C DENSITY 


CHECK FOR 
ONVERGENC 


YES 


SET STATUS FLAG = -1 


15°C DENSITY 
WITHIN LIMITS 
OF CORRELATIO 


NO AND 15°C DENSITY = -999.3 
RETURN 


YES 


USED CORRECT 
KO AND Ki 
CONSTANTS 


NO 


YES 


REPEAT CONVERGENCE SCHEME 
WITH RE-DEFINED ALPHA 


15°C DENSITY 
ON STRAIGHT 


LINE SEGMENT 


1s*C 
DENSITY IN 
XTRAPOLATED 
REGION 


YES 


NO 


SET STATUS FLAG = 0 
RETURN 
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11.1.53.5.7 Subroutine Listing 
TAB53B ‘This subroutine accepts density and the observation 
temperature and determines the corresponding density at 15 °C 
for Generalized Products. 


Referenced Modules 


ALF53B This module calculates the coefficient of thermal expansion 


needed to determine a volume correction factor. 


DIV53B This module is designed to produce additional accuracy from 


an integer divide. 


MPY53B ‘This module is designed to produce additional accuracy from 
an integer multiplication. 


VCF53B ‘This module calculates a volume correction factor. 


SUBROUTINE TABS3B(RHO,DEGC , IHYDRO, RHO15 , IFLAG) 53B00010 
Cc 53B00020 
Cc (C) COPYRIGHT 1980 53800030 
Cc AMERICAN PETROLEUM INSTITUTE 53B00040 
Cc ALL RIGHTS RESERVED 53B00050 
Cc 53B00060 
Cc THIS SUBROUTINE IS A VOLUNTARY STANDARD AND WAS DEVELOPED 53B00070 
Cc UNDER THE AUSPICES OF THE JOINT API-ASTM COMMITTEE ON STATIC 53B00080 
Cc PETROLEUM MEASUREMENT IN PART FROM DATA GENERATED BY A 53B00090 
CG PROJECT FUNDED BY THE AMERICAN PETROLEUM INSTITUTE AT THE 53B00100 
Cc U.S. NATIONAL BUREAU OF STANDARDS, GAITHERSBURG, MARYLAND. 53B00110 
Cc 53B00120 
Cc INQUIRIES CONCERINING ITS APPLICATION SHOULD BE ADDRESSED TO: 53B00130 
Cc 53B00140 
Cc AMERICAN PETROLEUM INSTITUTE 53B00150 
Cc MEASUREMENT COORDINATION 53B00160 
Cc 2101 L STREET, N.W. 53B00170 
Cc WASHINGTON, DC 20037 53B00180 
C 53B00190 
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She aie ak ke ok ok dc ook ok oe oe ae ok ak ok eae oe ie oe eo eee ake a ok ie aie ae he aie ake ic ale oR de ke ole oe le Me ke oe alee ate ste ode ie ok ae de ok fe Oke ae oe ie ok ok ok ae 53B00200 


- * §3B00210 
3 THIS SUBROUTINE OR THE MATHEMATICAL RELATIONSHIPS * §3B00220 
= REPRESENTED THEREBY MAY BE USED BY ANYONE WISHING * §3B00230 
= TO DO SO, BUT THE AMERICAN PETROLEUM INSTITUTE, THE * §53B00240 
* AMERICAN SOCIETY FOR TESTING AND MATERIALS, AND THE * §3B00250 
* INSTITUTE OF PETROLEUM AND THEIR RESPECTIVE MEMBERS AND * 53B00260 
* THE U.S. NATIONAL BUREAU OF STANDARDS, SHALL NOT BE HELD * §3B00270 
* RESPONSIBLE OR LIABLE IN ANY WAY FROM LOSS OR DAMAGE, * 53600280 
* INCLUDING, BUT NOT LIMITED TO, CONSEQUENTIAL DAMAGE, * §53B00290 
* RESULTING FROM SUCH USAGE OR FOR VIOLATION OF ANY FEDERAL, * 53800300 
7 STATE, OR MUNICIPAL LAWS, REGULATIONS OR PRACTICES OF THE * 53B00310 
si UNITED STATES OR OF ANY FOREIGN COUNTRY. * 53B00320 
i * §3B00330 
BENE OR AE ee ae ae ae fe a fe oe ae He aie aie te ae ke oe eae aie ok ae As Ae ae ai aie aie ate ae aie ake ae ade ae ok ate oe ke ke ake fe ae aft ae as ake aie aie eae ae aie ae at ae He oie a His 53800340 
53B00350 

PURPOSE 53B00360 
53B00370 

THIS SUBROUTINE IS DESIGNED TO ACCEPT AS INPUT A DENSITY 53B00380 


(RHO) AT SOME OBSERVED TEMPERATURE (DEGC) IN DEGREES CELSIUS 53B00390 
AND CALCULATE THE CORRESPONDING DENSITY (RHO15) AT 15 DEGREES 53B00400 


DADGQANANNDAANAGANDNDIADAAGDANANAANANNGANAAAGANIGDAIAAINAANAIAINIAIAIANAAAN 


CELSIUS FOR TABLE 53B, GENERALIZED PRODUCTS. 53B00410 

THE USE OF A GLASS HYDROMETER CORRECTION IS OPTIONAL. 53B00420 
53B00430 

EXTERNAL FUNCTIONS OR SUBPROGRAMS 53B00440 
53B00450 

ALF53B, DIV53B, MPY53B, VCF53B 53B00460 

FORTRAN FUNCTIONS: FLOAT, IABS 53B00470 
53B00480 

DESCRIPTION OF PARAMETERS 53B00490 
53B00500 

RHO - DENSITY AT OBSERVED TEMPERATURE, NEAREST .5 KG/CU (IN) 53B00510 

METRE. (PROGRAM WILL ROUND RHO TO THE NEAREST 53B00520 

.5 KG/CU METRE AND RETURN ROUNDED VALUE. ) 53B00530 

DEGC - OBSERVED TEMPERATURE, NEAREST .05 DEG C (IN) 53B00540 
(PROGRAM WILL ROUND T TO THE NEAREST .05 53B00550 

DEG C AND RETURN THE ROUNDED VALUE. ) 53B00560 

IHYDRO - APPLICATION OF GLASS HYDROMETER CORRECTION CIN) §3B00570 

© - HYDROMETER CORRECTION IS USED §3B00580 

1 - HYDROMETER CORRECTION IS NOT USED 53B00590 

RHO15 - CORRESPONDING DENSITY AT 15 DEGREES C (OUT) 53B00600 
(ROUNDED TO THE NEAREST .5 KG/CU METRE) 53B00610 

IFLAG - STATUS CODE (OUT) 53B00620 

0 - INPUT AND CALCULATED RESULTS IN CORRELATION LIMITS 53B00630 

1 - INPUT OR CALCULATED RESULTS IN EXTRAPOLATION REGION 53B00640 

-1 - INPUT OR CALCULATED RESULTS NOT WITHIN LIMITS OF 53B00650 

CORRELATION 53B00660 

BASE TEMPERATURE (15 DEGREES C) §3B00670 

DATA IBASE / 1500 / 53B00680 

Cc UPPER AND LOWER DENSITY LIMITS 53B00690 
DATA LIM1, LIM2 / 1074982, 652934/ §3B00700 

Cc 53B00710 
Cc BREAK POINTS FOR DENSITY RANGES ( 778.5 AND 824.0 ) §3B00720 
DATA IBPi, IBP2 / 77850, 82400 / §3B00730 

Cc §3B00740 
Cc MAXIMUM TEMPERATURES AT EACH BREAK POINT ( 95,125,150) 53B00750 
DATA ITMP1, ITMP2, ITMP3 / 9500, 12500, 15000 / 53B00760 
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Cc 
Cc 
C 
Cc 
Cc 
C 
Cc 
C 
Cc 
Cc 
Cc 
Cc 
CG 
Cc 
Cc 
C 
Cc 
C 
10 
15 
20 
Cc 
Cc 
Cc 
40 
1) 
50 
Cc 
60 
Cc 
70 
Cc 
80 
Cc 
90 
100 
Cc 
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BEGINNING OF TEMPERATURE EXTRAPOLATIONS 
12000 / 


DATA IEP1, ITEP2, IEP3 / 6000, 


9000, 


( 


60, 90,120) 


COEFFICIENTS FOR DIESELS, HEATING OILS, AND FUEL OILS 


DATA KOF, K1F / 1869696, 4862 
DATA NLOF / 83900 / 


/ 


COEFFICIENTS FOR JET FUELS, KEROSENES, AND SOLVENTS 


DATA KOJ, K1J / 5945418, 0 
DATA NLOJ, NHIJ / 77900, 8385 


/ 
0 / 


COEFFICIENTS FOR GASOLINES AND NAPTHENES 


DATA KOG, K1G / 3464228, 4388 
DATA NHIG / 77850 / 


/ 


STRAIGHT LINE INTERPOLATION: ALPHA=A+B/ (RHO**2 ) 
- 52 DEGREES APT) 


FOR DENSITY 770.5 - 787. 
DATA INT1, INT2 / 77050, 7875 
DATA IA, IB / -336312, 268032 


5 (48 
Oo /¢ 
06 / 


UNIT 6 IS THE OUTPUT UNIT. 
TO SOME OTHER UNIT, SET NOUT TO APPROPRIATE VALUE. 


NOUT = 6 


ROUND RHO TO NEAREST 
IRHO = ( (RHO * 100) + 25 ) / 
IRHO = IRHO * 50 
RHO = FLOAT( IRHO ) / 100. 


.5 KG/CU METRE 


50 


CHECK FOR TEMPERATURE LESS THAN 


IF ( DEGC + 18 ) 1200, 10, 10 


-18 C 


ROUND TEMPERATURE TO NEAREST .05 DEG C 


IRD = 25 
IF ( DEGC ) 15, 20, 20 

IRD = -25 

IT = ( (DEGC * 1000) + IRD ) 
IT * 5 

= FLOAT( IT ) / 100. 


IS RHO LESS THAN 650. 
IF (¢( IRHO - 65000 ) 1200, 40 

IS RHO GREATER THAN 10 
IF ¢ IRHO - 107500 ) 50, 50 

IS RHO GREATER THAN 77 
IF ¢( IRHO - IBP1 ) 60, 60, 


/ 50 


, 40 
75. 
, 1200 
8.5 
70 


IS TEMP GREATER THAN 95 


IF ¢( IT - ITMP1 ) 100, 100, 


1200 


IS RHO GREATER THAN 824. 


IF ( IRHO - IBP2 ) 80, 80, 
IS TEMP GREATER THAN 1 
IF ( IT - ITMP2 ) 100, 100, 
IS TEMP GREATER THAN 1 
IF ( IT - ITMP3 ) 100, 100, 
CONTINUE 


IFLAG = 0 
IDT = IT - IBASE 


90 
25 
1200 
50 
1200 


(IF 
(IF 
(IF 
(IF 
(IF 
(IF 


CIF 


YES, 
YES, 
YES, 
YES, 
YES, 
YES, 


YES, 


BRANCH 


BRANCH 


BRANCH 


BRANCH 


BRANCH 


BRANCH 


BRANCH 
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TO 


TO 


TO 


TO 


TO 


TO 


TO 


1200) 
1200) 
70) 
1200) 
90) 
1200) 


1200) 


53B00770 
53800780 
53B00790 
53B00800 
53B00810 
53B00820 
53B00830 
53B00840 
53B00850 
53B00860 
53B00870 
53B00880 
53B00890 
53B00900 
53B00910 
§3B00920 
53B00930 
53B00940 
53B00950 
53B00960 
53B00970 


IF THE OUTPUT IS TO BE DIRECTEDS53B00980 


53B00990 
53B01000 
§3B01010 
53B01020 
53B01030 
53B01040 
53B01050 
53B01060 


53B01070 
53B01080 
53B01090 
§3B01100 
§3B01110 
§3B01120 
53B01130 
53B01140 
§3B01150 
53B01160 
53B01170 
53B01180 
53B01190 
53B01200 
53B01210 
53B01 220 
53B01 230 
53B01240 
53B01250 
53B01260 
53B01270 
53B01280 
53B01290 
53B01300 
5§3B01310 
53B01320 
§3B01330 


aQag 


101 


105 
110 


120 
125 


130 


135 
140 


150 


160 


300 
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IRHOT = IRHO 
IS HYDROMETER CORRECTION TO BE USED (IF NO, BRANCH TO 112) 
IF ¢ IHYDRO ) 101, 101, 112 


COMPUTE HYDROMETER CONSTANT AT DELTA T 


HY¥C = 71. - .000023*(DEGC-15) - .00000002* (DEGC-15)**2 
IRD = 5 
IF (IDT) 105, 110, 110 
IRD = -5 


IH1 = (2300 * IDT + IRD) / 10 
IH2 = (2 * IDT * IDT + 500) / 1000 
IHYC = 1000000000 - IHi - IH2 


APPLY HYDROMETER CORRECTION TO DENSITY 
IRD = IRHO * 10 
CALL MPY53B(IRD, IHYC, IRHOT ,10000) 
IRHOT = ( IRHOT + 50 ) ¢/ 100 


ICOUNT = 0 
IS RHO IN GASOLINE RANGE (650 - 778.5) (IF NO, BRANCH TO 120) 
IF ¢( IRHO - NHIG ) 115, 115, 120 
KO = KOG 
K1 = K1G 
IREG = 0 
GO TO 150 
IS RHO IN JET RANGE (779-838.5) (IF NO, BRANCH TO 130) 
IF ( IRHO - NHIJ ) 125, 125, 130 


KO = KOJ 
K1 = Kid 
IREG = 1 
GO TO 150 
RHO IS IN DIESEL REGION (839-1075)) 
CONT INUE 
IF (ICOUNT -2)140,135,135 
IF (IRHO15-NLOF)720,140,140 
CONTINUE 
KO=KOF 
K1 = K1F 
IREG = 2 


ICOUNT = ICOUNT + 1 

IF (ICOUNT - 2) 160, 160, 400 
JRHOT = IRHOT * 10000 

IRHO15 = IRHOT 

KRHO = 0 


NP ce) 


NP = NP + 1 
CALL ALF53B(IRHO15,KO,K1, IALF) 


CALL VCF53B(IALF ,IDT, IVCF) 
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53B01340 
53B01350 
53B01 360 
53B01370 
53B01380 
53B01390 
53B01400 
53B01410 
53B01420 
53B01430 
53B01440 
53B01450 
§3B01460 
53B01470 
53B01480 
53B01490 
§3B01500 
53B01510 
53B01520 
53B01530 
53B01540 
53B01550 
53B01560 
53B01570 
53B01580 
53B01590 
53B01600 


53B01610 
§3B01620 
53B01630 
53B01640 
53B01650 
53B01660 
53B01670 
53B01680 
53B01690 
53B01700 
53B01710 
53B01720 
§3B01 730 
53B01740 
§3B01750 
53B01760 
§3B01770 
53B01 780 
§3B01790 
§3B01800 
53B01810 
53B01820 
53B01830 
6§3B01840 
53B01850 
6§3B01860 
53B01870 
53B01880 
53B01890 
53B01900 
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CG 53B01910 
IVCF = ( IVCF + 50 ) / 100 §3B01920 
Cc 53B01930 
CALL DIV53B(JRHOT, IVCF,IRHO15 ,1000) 53B01940 
Cc 53B01950 
IF ( ITABS (IRHO15 - KRHO ) - 50 ) 500, 320, 320 53B01960 
Cc 53B01970 
320 KRHO = IRHO15 53B01980 
CG 53B01990 
IRHO15 = ( IRHO15 + 5 ) / 10 §3B02000 
Cc 53B02010 
IF ( NP - 20 ) 300, 1150, 1150 53B02020 
Cc §3B02030 
Cc STRAIGHT LINE INTERPOLATION IS USED TO CONNECT THE JET FUEL 53B02040 
Cc AND GASOLINE LINES (770.5-787.5 KG/CU METRE). ONLY THE §3B02050 
Cc DEFINITION OF ALPHA IS CHANGED. ALPHA = A +B / (IRHO15**2) 53B02060 
Cc 53B02070 
Cc 53B02080 
400 KRHO = 0 §3B02090 
NP = 0 §3B02100 
ICOUNT = 3 53B02110 
Cc §3B02120 
Cc FIRST GUESS IS 778.84 KG/CU METRE 53B02130 
IRHO15 = 77884 53B02140 
JRHOT = IRHOT * 10000 53B02150 
C 53B02160 
440 NP = NP + 1 §3B02170 
CALL DIV53B8(1B, IRHO15, TIRES, 10000) 53B02180 
IRES = IRES * 10 53B02190 
CALL DIV53B(IRES,IRHO15, IRES2 ,10000) 53B02200 
IRES2 = (IRES2 + 5) / 10 §3B02210 
IALF = (IA + IRES2 + 5) / 10 §3B02220 
CALL VCFS3B(IALF ,IDT,IVCF) 53B02230 
IVCF = (IVCF + 50) / 100 53B02240 
CALL DIV53B(JRHOT, IVCF, IRHO15 ,1000) §3B02250 
G 53B02260 
IF ( IABS(TRHO15 - KRHO) - 70 ) 500, 460, 460 53B02270 
53B02280 
460 KSAV = KRHO 53B02290 
KRHO = IRHO15 53B02300 
IRHO15 = ( IRHO15 + 5 ) / 10 53B02310 
IF ( NP - 40 ) 440, 480, 480 53B02320 
Cc 53B02330 
Cc RESTRICTING DENSITY (IRHO15) TO THREE DECIMAL PLACES MAY 53B02340 
CG CAUSE THE CONVERGENCE TECHNIQUE TO REACH A STATIONARY §3B02350 
Cc POINT BEFORE TOLERANCE REACHED. THE AVERAGE OF THE UPPER 53B02360 
Cc AND LOWER BOUNDARIES IS A SATISFACTORY SOLUTION. 53B02370 
Cc 53B02380 
Cc AVERAGE LAST TWO PASSES 53B02390 
Cc 53B02400 
480 IRHO15 = ( KRHO + KSAV ) / 2 53B02410 
Cc §3B02420 
500 IF (¢( IRHO15 - LIM1 ) 510, 510, 1200 §3B02430 
510 IF (¢( IRHO15 - LIM2 ) 1200, 520, 520 53B02440 
Cc 5§3B02450 
§20 JRHOT = ( IRHO15 + 50 ) / 100 53B02460 
IRHO15 = ( IRHO1i5 + 5 ) / 10 53B02470 
G FLOATING VALUE ROUNDED TO NEAREST 0.1 53B02480 
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SECTION 1—VoLUME CoRRECTION Factors X-321 
RHO15 = FLOAT(JRHOT) / 10. 53B02490 
CG §3B02500 
IF (ICOUNT - 3) 600, 720, 720 §3B02510 
Cc 53B02520 
600 IF (IREG - 1) 610, 620, 640 §3B02530 
Cc IS RHO15 ABOVE GASOLINE REGION (IF YES, BRANCH TO 125) 53B02540 
610 IF ¢ IRHO15 - NHIG ) 680, 680, 125 §3B02550 
Cc IS RHO15 ABOVE JET REGION CIF YES, BRANCH TO 130) 53B02560 
620 IF ¢( IRHO15 - NHIJ ) 630, 680, 130 §3B02570 
Cc IS RHO15 BELOW JET REGION (IF YES, BRANCH TO 115) §3B02580 
630 IF ( IRHO15 - NLOJ ) 115, 680, 680 5§3B02590 
Cc IS RHO15 BELOW DIESEL REGION (IF YES, BRANCH TO 125) §3B02600 
640 IF ( IRHO15 - NLOF ) 125, 680, 680 53B02610 
Cc §3B02620 
680 CONTINUE 53B02630 
Cc 53B02640 
Cc IF IRHO15 .GE. 770.5 AND .LE. 787.5, USE STRAIGHT LINE 5§3B02650 
Cc IS RHO15 .GE. 770.5 (IF YES, BRANCH TO 690) 53B02660 
IF ¢( IRHO15 - INT1 ) 720, 400, 690 53B02670 
Cc IS RHO .LE. 787.5 (IF YES, BRANCH TO 400) 53B02680 
690 IF ¢ IRHO15 - INT2 ) 400, 400, 720 §3B02690 
Cc §3B02700 
Cc §3B02710 
G IS RHO GREATER THAN 778.5 (IF YES, BRANCH TO 790) 53B02720 
720 IF ( IRHO - IBP1 ) 780, 780, 790 53B02730 
C IS TEMP GREATER THAN 60 (IF YES, BRANCH TO 830) §3B02740 
780 IF ( IT - IEP1 ) 820, 820, 830 §3B02750 
CG IS RHO GREATER THAN 824 (IF YES, BRANCH TO 810) 53B02760 
790 IF (¢( IRHO - IBP2 ) 800, 800, 810 §3B02770 
Cc IS TEMP GREATER THAN 90 (IF YES, BRANCH TO 830) 53802780 
800 IF ( IT - IEP2 ) 820, 820, 830 §3B02790 
Cc IS TEMP GREATER THAN 120 (IF YES, BRANCH TO 830) 5§3B02800 
810 IF (¢ IT - IEP3 ) 820, 820, 830 53B02810 
820 CONTINUE 53B02820 
RETURN 53B02830 
Cc SET SWITCH INDICATING EXTRAPOLATED REGION §3B02840 
830 IFLAG = 1 §3B02850 
RETURN 53B02860 
Cc 53B02870 
1150 WRITE(NOUT ,6020) DEGC, RHO 53B02880 
6020 FORMAT(5H1 AT ,F6.2,15H DEGREES C AND ,F6.1, 7OH KG/CU METRE, A53B02890 
1 CORRESPONDING DENSITY AT 15 C COULD NOT BE DETERMINED. ) §3B02900 
Cc §3B02910 
Cc SET SWITCH INDICATING OUTSIDE RANGE OF TABLE 53B 53B02920 
1200 IFLAG = -1 53B02930 
RHO15 = -999.9 §3B02940 
RETURN §3B02950 
END §3B02960 
SUBROUTINE DIV53B( INUM, IDENOM, IRES , ISCALE) 53B02970 
Cc 53B02980 
Cc THIS SUBROUTINE IS DESIGNED TO PRODUCE ADDITIONAL 53B02990 
Cc ACCURACY FROM AN INTEGER DIVIDE WHERE THE NUMERATOR 53B03000 
CG IS ISCALE GREATER THAN THE DENOMINATOR. THE SUBROUTINE §3B03010 
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Cc ASSUMES PROPER SCALING OF BOTH THE INPUT NUMERATOR §3B03020 
Cc AND DENOMINATOR AND WILL RETURN THE RESULTS MULTIPLIED 53B03030 
G BY ISCALE. 53B03040 
(o 53B03050 
IRES1=INUM/ IDENOM 53B03060 
IRES2=( INUM- IRES1 * IDENOM) * ISCALE/ IDENOM 53B03070 
IRES=IRES1 * ISCALE+IRES2 53B03080 
RETURN 53B03090 
END 53B03100 
SUBROUTINE ALF53B(IRHO,KO,K1,IALF) 53B03110 
Cc §3B03120 
Cc THIS SUBROUTINE IS DESIGNED TO CALCULATE ALPHA FOR §3B03130 
Cc USE IN DETERMINATION OF VOLUME CORRECTION §3B03140 
Cc FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE AS INTEGERS, 53B03150 
C THE SUBROUTINE RETURNS WITH A 8 DIGIT VALUE 53B03160 
Cc 53B03170 
Cc INPUT VARIABLES 53B03180 
CG IRHO=DENSITY*100 (KILOGRAMS/CUBIC METRE) §3B03190 
Cc KO ,K1= COEFFICIENTS OF DESIRED CURVE * 10000 §3B03200 
Cc §3B03210 
Cc ALGORITHM - 53B03220 
Cc ALPHA=KO0 / RHO* *2+K1 /RHO §3B03230 
Cc §3B03240 
Cc CALCULATE K1/RHO 53B03250 
Cc 53B03260 
INUM=K1 *10000 53B03270 
CALL DIV53B( INUM, IRHO, IALF1, 10000) 53B03280 
c 5§3B03290 
Cc CALCULATE K0O/RHO**2 53B03300 
Cc 53B03310 
INUM=K0O* 100 §3B03320 
CALL DIV53B(INUM, IRHO, IALFS, 10000) 53B03330 
CALL DIV53B(IALFS, IRHO, IALF2 ,10000) 53B03340 
IALF=(IALF1+IALF2+500 )/1000 53B03350 
RETURN 53B03360 
END 53B03370 
SUBROUTINE VCF53B(IALF,IDT,IVCF) 53B03380 
Cc 53B03390 
Cc THIS SUBROUTINE IS DESIGNED TO CALCULATE VOLUME 53B03400 
Cc CORRECTION FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE 53B03410 
Cc AS INTEGERS, THE SUBROUTINE RETURNS WITH A 8 §3B03420 
Cc OR 9 DIGIT VALUE DEPENDENT UPON WHETHER IDT §3B03430 
Cc IS POSITIVE OR NEGATIVE. 53B03440 
Cc §3B03450 
Cc ALGORITHM- 53B03460 
Cc VCF=EXP( -ALPHA*DT(1.0+0.8*ALPHA*DT ) ) 53B03470 
Cc 53B03480 
Cc CALCULATE ALPHA*DT 53B03490 
Cc 53B03500 
ITERM1=IALF*IDT §3B03510 
Cc 53B03520 
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CALGULATE 0.8*ALPHA*DT 


ITERM2=ITERM1/5*4 


QO aan 


CALCULATE EXPONENT -ALPHA*DT(1.0+0.8*ALPHA*DT ) 


CALL MPY53B(ITERM1 , ITERM2 , ITERM3 , 10000) 


ITERM3 = ITERMi + (ITERM3 + 5)/10 
IX=- ITERM3/10 


aan 


CALCULATE EXPONENTIAL( FIRST 7 TERMS OF POWER SERIES) 


ISUM1=100000000+IX 

CALL MPY53BC( 1X, IX, ISUM2, 1000) 
ISUM2=( (ISUM2+50)/100)/2 

CALL MPY53B( 1X, ISUM2 , ISUM3 , 1000) 
ISUM3=( (ISUM3+50)/100)/3 

CALL MPY53B( 1X, ISUMS3 , ISUM4 , 1000) 
ISUM4=( (ISUM4+50)/100)7/4 

CALL MPY53B( 1X, ISUM4 , ISUMS, 1000) 
ISUM5=( (ISUM5+50)/100)/5 

CALL MPY53B(1X, ISUMS5 , ISUM6, 1000) 
ISUM6=( (ISUM6+50)/100)/6 
IVCF=ISUM1 +I SUM2+1SUM3+ISUM4+ISUM5+ISUM6 
RETURN 


END 


SUBROUTINE MPY53B(1IX ,IY,1IZ, ISCALE) 


qgaqgan 


Iu1 
K1 
Iv1 
IU2 
K2 
IV2 


K3 = 
IZ = (K3 + ISCALE/2) / ISCALE + IU1i * 


THIS ROUTINE PERFORMS INTEGER MULTIPLICATION. THE TOTAL 
NUMBER OF DIGITS IN IX AND IY MUST NOT EXCEED 17. OTHER 
WISE, OVERFLOW WILL OCCUR. 


= IX / ISCALE 


= ISCALE * 1uU1 


= IX - Kt 
= IY / ISCALE 


= ISCALE * IU2 


= IY - K2 


Iu1 * IV2 + IU2 * IV1 + IV1 * IV2 / ISCALE 


IvU2 


RETURN 


END 


current: 
updated: 


iene) 


current: 
updated: 


Errata 
Please make the following updates to this subroutine listing. For an explanation 
of the updates see 11.1.6. 


iS RH@ LESS THAN 650. 
1S RH@ LESS THAN 653. 


(IF YES, BRANCH T@ 1200) 
(IF YES, BRANCH T@ 1200) 


IF ¢ 
IF ¢ 


IRHG - 65000 ) 1200, 
IRH®@ - 65500 ) 1200, 


40, 40 
40, 40 
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53B03530 
53B03540 
53B03550 
53B03560 
53B03570 
53B03580 
53B03590 
53B03600 
53B03610 
53B03620 
53B03630 
53B03640 
53B03650 
53B03660 
53B03670 
53B03680 
53B03690 
53B03700 
53B03710 
53B03720 
53B03730 
53B03740 
53B03750 
53B03760 
53B03770 
53B03780 
53B03790 


53B03800 
§3B03810 
53B03820 
53B03830 
53B03840 
53B03850 
53B03860 
53B03870 
53B03880 
53B03890 
53B03900 
53803910 
53B03920 
53B03930 
53B03940 


53B01160 
53B01160 


53B01170 
53B01170 


API MPMS*11.1 VOL*X 80 MM O73ee290 0526169 1445 
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11.1.53.6 IMPLEMENTATION PROCEDURE FOR SUBROUTINE TAB53B 


The use of the computer has gained widespread acceptance throughout the 
petroleum industry. Computers are used for accounting purposes, in 

process simulation and modeling, data retrieval and evaluation, and are 

now being used extensively in custody transfer measurements and trans- 
actions. In 1968, the American Petroleum Institute recognized the need 

for incorporating existing petroleum measurement tables into computer 

code. In June of 1973, a subroutine for TABLE 6, Volume Reduction to 60 °F, 
was made available. Since then many of the other standardized petroleum 
measurement tables have been made available as computer subroutines. 


However, the computerization of an existing table of numbers proved to be 
a very difficult task. For instance, it proved to be impossible to use 
the mathematical expression that was supposedly used to generate the table 
values and calculate values identical to the tabular entries. This was 
modified and also because the procedures used to round the calculated 


values were inconsistent. 


The only way to overcome these problems in a computer subroutine was to 
manually locate all the table entries that did not agree with the calculated 
values and add extensive "exception tables" to the oode. This made the code 
lengthy and somewhat cumbersome to modify and to some extent restricted 


its use to larger computing systems. 


The working group for TABLE 6 revision realized the importance of elimi- 
nating any potential for such problems in the future and also recognized 
the need to have computer subroutines available at the time the new 
petroleum measurement tables were released. The working group decided to 
outline an explicit implementation procedure to ke followed when using the 
new correlation for volume correction factors. This implementation 
procedure would then be the Standard rather than a set of equations or set 
of tables. Standardization of an implementation procedure implies 
standardization of the set of mathematical expressions used within the 
computer code. Absolute adherence to the outlined procedure will insure 
that all computers and computer code of the future, meeting the stated 
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specifications and restrictions, will be able to produce identical 
results. Such a procedure allows for the maximum machine and code 


independence. 


The implementation procedure as described in the following text can by 
careful and deliberate application of numerical analysis be followed 
through the majority of language and word sizes in present and anticipated 
use. To follow the standard procedure means absolute and unwavering 
adherence to the number of digits specified at each step and to the 
calculational procedure as outlined. 


In the procedure, the nomenclature digits (XXX.XX) means mathematically 
significant digits as defined in ASTM F380-76. In the previous example, 


all five (5) digits in the parenthesis are mathematically significant. 


At various steps in the implementation procedure, calculated results are 
rounded or truncated. When rounding a result to fewer digits than the 
total number available, the following procedure which was used overrides 
that of ASTM E380-76: 


a) when the first digit to be discarded is less than 5, the last digit 
retained is not changed. 

b) when the first digit to be discarded is greater than 4, the last 
digit retained is increased by one unit. 


The procedure used in truncating a result to fewer digits than the total 
number available is to simply discard all digits following the last digit 
to be retained and leaving the last retained digit unchanged. 


Another specification is that the coefficients used to relate the thermal 
expansion coefficient at 15 °C to the 15 °C density base and all other 
constants needed in the correlation must be used to exactly the number of 


digits specified. 
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Calculation Procedure 


Step 1: Round input variables 
a) Round density to nearest 0.5 Kg/m3 
RHO = XXXX.X rounded 
b) Round observed temperature to nearest 0.05 °C 
T = XXX.XX rounded 


Step 2: Calculate difference in observed temperature and 
base temperature 
BASE TEMPERATURE = 15.00 
DELTA = XXX.XX - 15.00 = XXX.XX 


Step 3: Compute hydrometer correction term (optional) 
HYC = 1.0 - .000023*DELTA - .00000002*DELTA2 
TERM] = .000023*DELTA = .OOXXXXXXX rounded 
TERM2 = .00000002*DELTA2 = .OO0OXXXXXX rounded 
HYC = 1.000000000 -— .OOXXXXXXX - .OQOOXXXXXX = X.XXXXXXXXX 


Step 4 : Application of hydrometer correction 
RHOT = RHO * HYC = XXXX.XX rounded 


Step 5: Initialize 15 °C density 
RHO15 = RHOT = XXXX.XXK 


Step 6A: Calculate coefficient of thermal expansion 

ALPHA = Ko/RHO152 + K1/RHO15 

Kg = XXXX.XXXX 

Kj = oXXXX 
TERM1 = Ko/RHO15 = .XXXXXXXX truncated 
TERM2 = TERMI/RHO1S = .OOXXXXXXXX truncated 
TERM3 = Kj/RHO15 = .OOXXXXXXXX truncated 
ALPHA = TERM2 + TERM3 = .000XXXX rounded 


Step 6B: Calculation of ALPHA for straight line segment 
ALPHA = A + B/RHO1S@ 
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A = -.00336312 (as of May 1, 1980) 

B = 2680.3206 (as of May 1, 1980) 
TERM] = B/RHO15 = X.XXXXXX truncated 
TERM2 = TERM1/RHO15 = .XXXXXXXX rounded 
ALPHA = A + TERM2 = .0OXXXXX rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA*DELTA ~ 0.8*ALPHA2*DELTA2) 
a) calculate exponent 
TERML = ALPHA * DELTA = .XXXXXXXXX truncated 
TERM2 = 0.8 * TERM] = .XXXXXXXXX truncated 
TERM3 = TERM] * TERM2 = .XXXXXXXXX truncated 
TERM4 = - TERM] - TERM3 = .XXXXXXXX truncated 


b) calculate exponential 
VCF = EXP(TERM4) = X.XXXXXX rounded 
(Must use at least the first seven terms of 


the power series expansion.) 


Step 8: Calculate 15 °C density 
RHOL5 = RHOT/VCF = XXXX.XXX truncated 


Since the equation for P15 cannot be solved explicitly, a successive 
approximation iterative scheme is used to obtain a solution. The initial 
estimate of Pris is the value of the density at observed temperature t. 
This approximation is substituted into the right hand side of the equation 
to obtain a second value approximation. This process of substituting into 
the right hand side of the equation and estimating a new value from the 
other is repeated until two consecutive results are in agreement to the 
desired degree of accuracy. In subroutine TAB53B, a converged solution is 
reached when the change in density is less than 0.05 Kg/m? in two 
successive passes. If the computed value of the 15°C density is not on 
the same curve as the observed density, the parameters Ky and K) 

used to determine the coefficient of thermal expansion must be redefined 
and the convergence technique repeated. A straight line interpolation is 
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used to connect the jet fuel curve with the gasoline curve between 770.5 
and 787.5 Kg/m>. When this occurs, the coefficient of thermal expansion is 
defined as: 


Op. 2 
IS=A+t B/Py6 


where A = -.00336312 (as of May 1, 1980) 
B = 2680. 3206 (as of May 1, 1980) 


In this case, the tolerance is increased to 0.07 Kg/m?. 


The 1980 integer FORTRAN code issued by API contain both an integer 
division and an integer multiplication algorithm. A description of each 
follows. 


INTEGER MULTIPLICATION PROCEDURE 
(For 32 Bit Arithmetic) 


DATA DEFINITION 

X,Y are integer numbers that are equal to or less than 2*109 (slightly 
less than 231). A larger value may cause overflow. In addition, the 
total number of digits in X and Y must not exceed 17, otherwise overflow 
will occur. 2Z is the product (X*Y) scaled by 10-8, i.e. Z = (X*Y) /108, 


Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically, at least 15 digits 
are needed to obtain 6 digit precision, 16 for 7 and 17 for 8. The 
largest value of X and Y that may be used are 2 000 000 000 and 

99 999 999. (Either values may be used for X and Y). 


CALCULATION 
X/10000 = Ul 
10000 * Ul = Kl 
X-Kl = V1 
¥/10000 = U2 
10000 * U2 = Kk2 
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¥-K2 = V2 
(U1L*V2) + (U2*V1) + (V1*V2/10000) = k3 
(K3 + 5000) /10000 + Ul*U2 = 2 


Note: 2Z has been scaled by 1078 and may have to be rescaled before use. 


TOTAL DIGITS INX ANDY 12 13 14 15 16 #17 
DIGITS IN PRODUCT, 2 3-4 4-5 5&6 6-7 7-8 8-9 


INTEGER DIVISION PROCEDURE 
(For 32 Bit Arithmetic) 


DATA DEFINITION 


X,Y are integer numbers such that X is equal to or less than 231 -1 ana y 
is of order of magnitude 104 less than xX. 


R is the quotient of X/Y scaled by 104, i.e., R= x/y * 104. 


Note: If it is desirable to obtain maximum precision, X and Y may be scaled 
up prior to use of the procedure. Typically, the more digits that are 
carried in both X and Y, the more accurate digits on output. 


CALCULATION 
X/Y = Ul 
Ul * y= KL 
X - Kl = V1 
V1/Y = U2 
Ul * 10000 + U2 =R 


Note: R has been scaled by 104 and may need to be rescaled before use. 
Examples for Checkout 
The following examples illustrate how the implementation procedure is 


actually used to determine the value of a density at 15 °C for Generalized 
Products. The examples carry the computations through each step of the 
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procedure showing the results of each mathematical operation. The computed 
values are given to the required precision and it is indicated if a value 
has been rounded or truncated. ‘The step-by-step calculations are shown for 
the first iteration then a table is presented which summarizes the 
intermediate values used to obtain a converged solution. 


These examples are to be used as test cases for subroutine TAB53B to verify 
the computer code has not been altered or incorrectly reproduced. The 
routine has been designed to execute on machines that use word size of 
32-bits or greater. Any new development of computer code that is designed 
to follow the standard implementation procedure must insure that the values 
computed at each step in the procedure are identical to those given in the 


examples. 


EXAMPLE 1 


Step 1; Round input variables 
a) Round density to nearest 0.05 
RHO = 903.5 rounded 
b) Round observed temperature to nearest 0.05 
T = 54.45 rounded 


Step 2: Calculate difference in observed temperature and base temperature 
BASE TEMPERATURE = 15.00 
DELTA = 54.45 - 15.00 = 39.45 


Step 3: Compute hydrometer correction term 
HYC = 1.0 - .000023*DELTA - .00000002*DELTA2 
TERM] = .000023*DELTA = .000907350 rounded 
TERM2 = .00000002*DELTA2 = -000031126 rounded 
HYC = 1.000000000 - TERM]. - TERM2 = .999061524 


Step 4: Application of hydrometer correction 
RHOT = RHO * HYC = 902.65 rounded 
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Step 5: Initialize 15 °C density 
RHOLS = RHOT = 902.65 


Step 6A: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO1S2 + K1/RHO1S 
Ko 186.9696 (as of May 1, 1980) 
Ky 0.4862 (as of May 1, 1980) 
TERM] = Ko/RHO15 
TERM] = .20713410 truncated 
TERM2 = TERM1/RHOL5 
TERM2 = .0002294733 truncated 
TERM3 = Kj/RHO15 
TERM3 = .0005386362 truncated 
ALPHA = TERM2 + TERM3 = .0007681 rounded 


Step 7: Calculate volume correction factor 


VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 


a) Calculate exponent 


TERM] = ALPHA * DELTA = .030301545 truncated 


TERM2 = 0.8 * TERM] = .024241236 truncated 
TERM3 = TERM] * TERM2 = .000734547 rounded 
TERM4 = ~TERM] - TERM3 = —.03103609 


b 


— 


Calculate exponential 
VCF = EXP(TERM4) = .96944]1 rounded 


(must use the first seven terms of the power series 


expansion of e%*) 


Step 8: Calculate 15 °C density 
RHO1L5 = RAOTAVCF = 931.103 truncated 
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TABLE 1 shows the results of each iteration. 


TABLE 1 
ITERATION RHO15(N) ALPHA VCF RHO1L5(N+1) 
1 902.65 -0007681 969441 931.103 
2 931.10 -0007378 970655 929.939 
3 929 .94 -0007390 -970607 929.985 


RHOL5 = 930.0 rounded to nearest 0.1 


EXAMPLE 2 
Step 1: Round input variables 
a) Round density to nearest 0.5 
RHO = 849.0 rounded 
b) Round observed temperature to nearest 0.05 
= -13.60 rounded 


Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 15.00 
DELTA = -13.60 - 15.00 = —28.60 


Step 3: Compute hydrometer correction term 


HYC = 1.0 - .000023*DELTA - .000000002*DELTA2 
TERML = .000023*DELTA = —.000657800 rounded 
TERM2 = .0000002*DELTA* = .000016359 rounded 
HYC = 1.000000000 - TERM] - TERM2 = 1.000641441 


Step 4: Application of hydrometer correction 
RHOT = RHO * HYC = 849.54 rounded 


Step 5: Initialize 15 °C density 
RHOLS = RHOT = 849.54 
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Step 7: 


Step 8: 
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Calculate coefficient of thermal expansion 


ALPHA = Ko/RHOLS“ + K 1/RHOL5 
Ko = 186.9696 (as of May 1, 1980) 
Ki = 0.4862 (as of May 1, 1980) 
TERM] = Kg/RHO1S 
TERMI = .22008333 truncated 
TERM2 = TERM1/RHO15 
TERM2 = .0002590617 truncated 
TERM3 = Ky/RHO15 
TERM3 = .0005723097 truncated 
ALPHA = TERM2 + TERM3 = .0008314 rounded 


Calculate volume correction factor 


VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA? * DELTA2) 
a) Calculate exponent 
TERML = ALPHA * DELTA = —.023778040 truncated 
TERM2 = 0.8 * TERML = —.019022432 truncated 
TERM3 = TERM] * TERM2 = .000452316 rounded 
TERM4 = ~TERM] - TERM3 = .02332572 truncated 
b) Calculate exponential 
VCF = EXP(TERM4) = 1.023600 rounded 
(must use the first seven terms of the power series 
expansion of eX) 


Calculate 15 °C density 


RHOLS = RHOT/WF = 829.953 truncated 


TABLE 2 shows the results of each iteration. 


TABLE 2A 
ITERATION RHO15(N) ALPHA VCF RHOL5(N+1) 
1 849.54 -0008314 1.023600 829.953 
2 829.95 -0008573 1.024329 829.362 
3 829.36 -0008581 1.024352 829 .343 
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Computed value of RHO15 is not on the same curve as the input density. 


Redefine Kg and K, for the jet fuel curve and repeat the convergence 


scheme in steps 5 through 8. 


Table 2B shows the results. 


TABLE 2B 


ITERATION RHOL5(N) ALPHA VCF RHO1L5(N+1) 


1 
2 
3 


Step 2: 


Step 3: 


Step 4: 


Step 5: 


849.54 -0008238 1.023386 830.126 
830.13 -0008628 1.024484 829.236 
829.24 -0008646 1.024535 829.195 


RHOL5 = 829.2 rounded to nearest 0.1 


Round input variables 

a) Round density to nearest 0.5 
RHO = 801.0 rounded 

b) Round observed temperature to nearest 0.05 
T = 25.00 rounded 


Calculate difference in cbserved temperature and base 
temperature 

BASE TEMPERATURE = 15.00 

DELTA = 25.00 - 15.00 = 10.00 


Compute hydrometer correction term 

HYC 1.0 - .000023 * DELTA - .00000002 * DELTA 
TERML -000023 * DELTA = .000230000 rounded 
-00000002 * DELTA? = 000002000 rounded 


1.000000000 - TERM] - TERM2 = .999768000 


2 


: 


HYC 


Application of hydrometer correction 
RHOT = RHO * HYC = 800.81 rounded 


Initialize 15 °C density 
RHO1L5 = RHOT = 800.81 
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Step 6: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHO15° + K /RHO15 
Ko = 594.5418 (as of May 1, 1980) 
Kj = 0.0 (as of May 1, 1980) 
TERM] = Kg/RHO15 truncated 
TERML = .74242554 truncated 
TERM2 = TERM]/RHO15 
TERM2 = .0009270932 truncated 
TERM3 = K)/RHO15 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0009271 rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 
a) Calculate exponent 
TERM] = ALPHA * DELTA = .009271000 truncated 
TERM2 = 0.8 * TERM] = .007416800 truncated 
TERM3 = TERM] * TERM2 = .000068761 rounded 
TERM4 = —TERM] ~ TERM3 = - .009339761 truncated 
b) Calculate exponential 
VCF = EXP(TERM4) = .990704 rounded 
(must use the first seven terms of the power series 
expansion of eX) 


Step 8: Calculate 15 °C density 
RHOL5 = RHOT/VCF = 808.324 truncated 


TABLE 3 shows the results of each iteration. 


TABLE 3 
ITERATION RHOL5(N) ALPHA VCF RHOL5S(N+1) 
1 800.81 0009271 -990704 808 .324 
2 808 .32 -0009099 -990877 808 .183 
3 808 .18 -0009103 -990873 808 .186 
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RHO15 = 808.2 rounded to nearest 0.1 


EXAMPLE 4 
Step 1: Round input variables 
a) Round density to nearest 0.5 
RHO = 738.0 rounded 
b) Round observed temperature to nearest 0.05 
T = 60.00 rounded 


Step 2: Calculate difference in cbserved temperature and base 
temperature 
BASE TEMPERATURE = 15.00 
DELTA = 60.00 - 15.00 = 45.00 


Step 3: Compute hydrometer correction term 


Hyc = 1.0 - .000023 * DELTA - .00000002 * DELTA? 


TERML = .000023 * DELTA = .001035000 rounded 
TERM2 = .00000002 * DELTA? = 000040500 rounded 
HYC = 1.000000000 - TERM1 - TERM2 = .998924500 


Step 4: Application of hydrometer correction 
RHOT = RHO * HYC = 737.21 rounded 


Step 5: Initialize 15 °C density 
RHOLS = RHOT = 737.21 


Step 6: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHOIS* + K1/RAOLS 
Kg = 346.4228 (as of May 1, 1980) 
Ky, = 0.4388 (as of May 1, 1980) 
TERML = Ko/RHO15 
TERM] = .46991060 truncated 
TERM2 = TERM1/RHOL5 
TERM2 = .0006374175 truncated 
TERM3 = Kj/RHO15 
TERM3 = .0005952171 truncated 
ALPHA = TERM2 + TERM3 = .0012326 rounded 
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Step 7: Calculate volume correction factor 

VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 

a) Calculate exponent 
TERM] = ALPHA * DELTA = .055467000 truncated 
TERM2 = 0.8 * TERMI = .044373600 truncated 
TERM3 = TERM] * TERM2 = .002461270 rounded 
TERM4 = -TERM] - TERM3 = -—.05792827 truncated 

b) Calculate exponential 
VCF = EXP(TERM4) = .943718 rounded 
(must use the first seven terms of the power series 


expansion of eX) 


Step 8: Calculate 15 °C density 
RHO1L5 = RHOT/VCF = 781.176 truncated 


TABLE 4A shows the results of each iteration. 


TABLE 4A 
ITERATION RHO15(N) ALPHA VCF RHOL5(N+1) 
1 737.21 -0012326 -943718 781.176 
2 781.18 -0011294 -948485 777.250 
3 777.25 -0011380 -948088 777.575 
4 777.58 -0011373 -948120 777.549 


Computed value of RHO15 is on the straight line segment connecting the jet 
fuel curve with the gasoline curve. Redefine ALPHA and repeat convergence 
scheme in steps 5 through 8. 


Step 5: Initialize 15 °C density. 
RHO1L5 = 778.84 


Step 6B: Calculation of ALPHA for straight line segment. 
ALPHA = A + B/RHO152 
A = ~ .00336312 (as of May 1, 1980) 
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B = 2680.3206 (as of May 1, 1980) 
TERML = B/RHOIS = 3.441426 truncated 
TERM2 = TERM1/RHOL5 = .00441866 rounded 
ALPHA = A + TERM2 = .0010555 rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA? * DELTA2) 
a) Calculate exponent 
TERM4 = -.04749750 -— .00180481 = -.04930231 
b) Calculate exponental 
VCF = EXP(TERM4) = .951893 
(must use the first seven terms of the power series 


expansion of e%) 


Step 8: Calculate 15 °C density 
RHO15 = 737.21/.951893 = 774.467 


TABLE 4B 
ITERATION RHOL5 (N) ALPHA VCF RHO1L5(N+1) 
1 778 84 -0010555 -951893 774.467 
2 774.47 -00121055 -949588 776 347 
3 776 235 -0010839 -950584 775 533 
4 775.53 -0010933 950151 775 887 
5 775 «89 -0010892 950340 775.732 
6 775.73 -0010910 -950257 775 .800 


RHO15 = 775.8 rounded to nearest 0.1 


EXAMPLE 5 
Step 1: Round input variables 
a) Round density to nearest 0.5 
RHO = 779.00 rounded 
b) Round observed temperature to nearest 0.05 
T = -10.85 rounded 
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Calculate difference in observed temperature and base 
temperature 

BASE TEMPERATURE = 15.00 

DELTA = -10.85 - 15.00 = -25.85 


Compute hydrometer correction term 


HYC = 1.0 - .000023 * DELTA - .00000002 * DELTAZ 
TERM] = .000023 * DELTA = -.000594550 rounded 
TERM2 = .00000002 * DELTA* = .000013364 rounded 
HYC = 1.000000000 - TERMI - TERM2 = 1.000581186 


Application of hydrometer correction 
RHOT = RHO * HYC = 779.45 rounded 


Initialize 15 °C density 
RHO15 = RHOT = 779.45 


Calculate coefficient of thermal expansion 
ALPHA = Kg/RHO15* + K1/RHO1S 
Kg = 594.5418 (as of May 1, 1980) 
Kj = 0.0 (as of May 1, 1980) 
TERM] = Ko/RHO1S 
TERM] = .76277092 truncated 
TERM2 = TERML/RHO15 
TERM2 = .0009786014 truncated 
TERM3 = Kj/RHO15 
TERM3 = 0.0 
ALPHA = TERM2 + TERM3 = .0009786 rounded 


Calculate volume correction factor 
VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * pFrTA2) 
a) Calculate exponent 

TERM1 = ALPHA * DELTA = —.025296810 truncated 


TERM2 = 0.8 * TERM] = -.020237448 truncated 
TERM3 = TERM] * TERM2 = .000511943 rounded 
TERM4 = ~TERM] —- TERM3 = —.024784867 truncated 
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b) Calculate exponental 
VCF = EXP(TERM4) = 1.025095 rounded 
(must use the first seven terms of the power series 


expansion of e%) 


Step 8: Calculate 15 °C density 
RHO15 = RHOLT/VCF = 760.368 truncated 


Table 5A shows the results of each iteration. 


TABLE 5A 
ITERATION RHOL5 (N) ALPHA VCF RHOL5(N+1) 
1 779 .45 -0009786 1.025095 760.368 
2 760 .37 -0010283 1.026358 759 .432 
3 759.43 -0010309 1.026424 759 .384 


Computed value of RHO15 is not on the same curve as the input density. 
Refine Kg and kK, for the gasoline curve and repeat the convergence 
scheme in steps 5 through 8. Table 5B shows the results. 


TABLE 5B 
ITERATION RHOLS(N) ALPHA VCF RHOL5(N+1) 
1 779 .45 0011332 1.029020 757.468 
2 757.47 .0011831 1.030284 756.538 
3 756.54 0011853 1.030340 756.497 
RHO15 = 756.5 rounded to nearest 0.1 


EXAMPLE 6 
Step 1: Round input variables 
a) Round density to nearest 0.5 
RHO = 684.5 rounded 
b) Round observed temperature to nearest 0.05 
T = 34.45 rounded 
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Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 15.00 
DELTA = 34.45 - 15.00 = 19.45 


Step 3: Compute hydrometer correction term 


HYC = 1.0 - .000023 * DELTA — .00000002 * DELTA 
TERML = .000023 * DELTA = .000447350 rounded 
TERM2 = .00000002 * DELTA’ = .000007566 rounded 
HYC = 1.000000000 ~ TERM] - TERM2 = .999545084 


Step 4: Application of hydrometer correction 
RHOT = RHO * HYC = 684.19 rounded 


Step 5: Initialize 15 °C density 
RHO15 = RHOT = 684.19 


Step 6: Calculate coefficient of thermal expansion 
ALPHA = Kg/RHO1S* + K1/RHO15 
Kg = 346.4228 (as of May 1, 1980) 
K, = 0.4388 (as of May 1, 1980) 
TERML = Ko/RHOLS5 
TERM] = .50632543 truncated 
TERM2 = TERMI/RHO15 
TERM2 = .0007400362 truncated 
TERM3 = Kj/RHO15 
TERM3 = .0006413423 truncated 
ALPHA = TERM2 + TERM3 = .0013814 rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 
a) Calculate exponent 
TERMI = ALPHA * DELTA = .026868230 truncated 
TERM2 = 0.8 * TERML = .021494584 truncated 
TERM3 = TERM] * TERM2 = .000574458 rounded 
TERM4 -TERMI - TERM3 = -.02744575 truncated 
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b) Calculate exponental 
VCF = EXP(TERM4) = .972927 rounded 
(must use the first seven terms of the power series 


expansion of e*) 


Step 8: Calculate 15 °C density 
RHOL5 = RHOTAVCF = 703.228 truncated 


Table 6 shows the results of each iteration. 


TABLE 6 
ITERATION RHOL5 (N) ALPHA VCF RHO15(N+1) 
1 684 .19 -0013814 2972927 703.228 
2 703.23 -0013245 -974050 702.417 
3 702.42 -0013268 -974005 702.450 


RHOLS = 702.5 rounded to rearest 0.1 


EXAMPLE 7 
Step 1: Round input variables 
a) Round density to nearest 0.5 
RHO = 756.0 rounded 
b) Round observed temperature to nearest 0.05 
tT = 80.00 rounded 


Step 2: Calculate difference in observed temperature and base 
temperature 
BASE TEMPERATURE = 15.00 
DELTA = 80.00 - 15.00 = 65.00 


Step 3: Compute hydrometer correction term 
HyYC = 1.0 — .000023 * DELTA - .00000002 * DELTA 
TERML = .000023 * DELTA = .001495000 rounded 


2 
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.00000002 * DELTA’ = .000084500 rounded 


1.000000000 - TERM1 - TERM2 = .998420500 


TERM2 


5 


Step 4: Application of hydrometer correction 
RHOT = RHO * HYC = 754.81 rounded 


Step 5: Initialize 15 °C density 
RHO15 = RHOT = 754.81 


Step 6: Calculate coefficient of thermal expansion 
ALPHA = Ko/RHOLS“ + K /RHO15S 
Ko = 346.4228 (as of May 1, 1980) 
K, = 0.4388 (as of May 1, 1980) 
TERMI = Kg/RHO15 
TERM! = .45895364 truncated 
TERM2 = TERM1/RHO15 
TERM2 = .0006080386 truncated 
TERM3 = K1/RHO15 
TERM3 = .0005813383 truncated 
ALPHA = TERM2 + TERM3 = .0011894 rounded 


Step 7: Calculate volume correction factor 
VCF = EXP(-ALPHA * DELTA - 0.8 * ALPHA2 * DELTA2) 
a) Calculate exponent 
TERML = ALPHA * DELTA = .077311000 truncated 
TERM2 = 0.8 * TERMI] = .061848800 truncated 
TERM3 = TERM] * TERM2 = .004781593 rounded 
TERM4 = -TERM] - TERM3 = —.08209259 truncated 
b) Calculate exponental 
VCF = EXP(TERM4) = .921187 rounded 
(must use the first seven terms of the power series 
expansion of e%) 


Step 8: Calculate 15 °C density 
RHOL5 = RHOTAVCF = 819.388 truncated 
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Table 7A shows the results of each iteration. 


ITERATION RHO1L5(N) 
1 754.81 
2 819.39 
3 811.23 
4 812.15 
5 812.05 


TABLE 7A 


ALPHA 


-0011894 
-0010515 
-0010673 
-0010655 
-0010657 


CuHapter 11—Pxysical Properties Data 


VCF 


921187 


-930452 
2929392 
-929513 
«929499 


RHO1L5(N+1) 


819.388 
811.229 
812.154 
812.048 
812.061 


Computed value of RHO15 is not on the same curve as the input density. 


Redefine Kg and K, for the jet fuel curve and repeat the convergence 


scheme in steps 5 through 8. 


Table 7B shows the results. 


ITERATION RHOL5(N) 
754.81 
810.76 
802.73 
803.78 
803.64 


nF WN eH 


TABLE 7B 


ALPHA 


-0010435 


-0009045 
-0009227 
-0009203 
-0009206 


VCF 


-930989 


-940299 
-939081 
0939242 
2939222 


RHO15 = 803.7 rounded to nearest 0.1 
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810.761 
802.734 
803.775 
803.637 
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11.1.54 TABLES 54A, 54B, and 54C— 
Correction of Volume to 15°C 
Against Density at 15°C and 
Thermal Expansion Coefficients 


Tables 54A, 54B, and 54C give the factors for con- 
verting liquid petroleum volumes measured at observed 
temperatures to the corresponding volumes at 15°C. 

The data are presented in three tables to maximize 
accuracy while maintaining convenience of use: 


TABLE 54A Generalized Crude Oils 
(see Volume VII) 

TABLE 54B Generalized Products 
(see Volume VIII) 

TABLE 54C Volume Correction Factors for 
Individual and Special Applications 
(see Volume IX) 


TABLES 54A and 54B use density at 15°C to obtain 
volume correction factors. TABLE 54C uses experi- 
mentally determined thermal expansion coefficients to 
obtain volume correction factors. 


150 

120 

Temp *90 
3° 

C 60 


Data Range 


—18 


824.0 


The development and intended use of these tables is 
described in 11.1.6. The parameters Ky and K, may be 
found in 11.1.54.7.1. (see Volume IX). 

The limits of these tables are illustrated in Figures 
X-16, X-17, and X-18. 


11.1.54.1 TABLE 54A—GENERALIZED CRUDE 
OILS, CORRECTION OF VOLUME TO 
15°C AGAINST DENSITY AT 15°C 


TABLE 54A gives volume correction factors for con- 
verting crude oil volumes observed at temperatures 
other than 15°C to corresponding volumes at 15°C. 


The volume correction factors given in this table are 
the result of a computer procedure which is the Stan- 
dard (see 11.1.54.2 and 11.1.54.3). All of these volumes 
are at saturation conditions. Pressure corrections from 


saturation are not included. 


778.5 758.0 


Density kg/m? 


Figure X-16 — Data Limits for TABLE 54A 


LZ 


Ze 


824.0 778.5 
Density kg/m® 


LZ Exeapolated 2] 


653.0 


Figure X-17 — Data Limits for TABLE 54B 
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150 
120 LA 125 
Temp 
°C : LZ LLL ee 
Data Range 
18 36 918 954 1674 


Figure X-18 — Data Limits for TABLE 54C 


The temperature ranges of this table are: 


Density, kg/m? °C 
610 to 778 -18to 95 
778 to 824 —18 to 125 
824 to 1075 —18 to 150 


The volume correction factors given in this table are 
based on data from the U.S. National Bureau of Stan- 
dards and from other published data. Portions of the 
density and temperature ranges represent areas beyond 
these data. Thus, mathematical techniques were em- 
ployed to extrapolate beyond the density and tempera- 


ture ranges of the given data to determine the volume 
correction factors for these areas. These factors are 
denoted by an asterisk (*). Extension of this table 
beyond the ranges shown is not recommended. 

Increments used in this table for determining volume 
correction factors are 0.25°C and 2 kg/m?. Interpolation 
between either temperature or density is not intended 
since there is no practical method of interpolation that 
will produce the accuracy obtainable from the Stan- 
dard. 


This table must be entered with a known den- 
sity at 15°C and with an observed temperature. 


11.1.54.2 PROGRAM DOCUMENTATION FOR SUBROUTINE TAB54A— 
GENERALIZED CRUDE OILS, CORRECTION OF VOLUME TO 15°C 


AGAINST DENSITY AT 15°C 


The thermal expansion properties (volume correction factors, VCF's) for 


products (excluding fube stocks) and crudes are correlated in two separate 


generalized tables as a function of temperature and density. 


precision at 95% confidence is: 


The predicted 


VCF Precision at 95% Confidence, % 


Temperature 


Crudes & Products 


40 °C 
+0.05 


65 °C 90 °C 120 °C 
015 25 039 


if this precision Is unacceptable, it is recommended that the actual thermal 


expansion properties of the substance be measured and the VCF be determined 
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The instructions for this procedure are given in TABLE 54C. 


Subroutine Title: 


Description: 


Program Responsibility: 


Date Issued: 


Language: 


Reference: 


ABSTRACT 


TAB54A - TABLE 54A, Generalized Crude Oils, 


Volume Correction to 15 °C. 


This subroutine is designed to calculate the 
volume correction factor required to convert 
a volume at an observed temperature to the 


corresponding volume at 15 °C assuming the 


substance can be characterized as a crude oij!. 


American Petroleum Institute 
Measurement Coordination 
2101 L Street, N.W. 
Washington, D.C. 20037 
August 1980 


FORTRAN, ANSI/ASA Standard 


AP! Standard 2540, TABLE 54, 11.1.54 


THIS SUBROUTINE WAS DEVELOPED USING THE MATHEMATICAL ALGORITHMS 
AND SPECIFICATIONS DESCRIBED IN THE DOCUMENT PROCEDURE 11.1.54.3. 
ANY MODIFICATIONS TO THIS SUBROUTINE MUST RIGIDLY ADHERE 
TO THE SAME ALGORITHMS AND SPECIFICATIONS. 


11.1.54.2.1 Introduction 


TAB54A is a computer subroutine designed to calculate the volume correc- 


tlon factor (VCF) necessary to convert a volume of a generalized crude ata 
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specified tenperature in degrees Celsius (°C) and of a specified 15 °C density 
in kilograms/cubic metre (Kg/m) to the equivalent volume at 15 °C. The sub- 
routine accepts as input the density at 15 °C rounded to the nearest 0.5 Kg/m=> 
and the observed temperature rounded to the nearest 0.05 °C. If either input 
value has not been properly rounded, the subroutine will round the values and 
return the corrected values. The subroutine returns one value of VCF with 5 
significant figures of accuracy for computation purposes and another VCF value 
rounded to four decimal! places for printing purposes. The subroutine also 
outputs a status code for user convenience. The code is set to -1 if an error 
condition occurs and to +! if the input values are outside the limits of the 
correlation. A status code of zero is returned if the input values are within 
the limits of the correlation. The limits of the correlation including the 
extrapolated region are depicted in Figure X-16. The calling program must check 
the flag and provide the user with appropriate warning messages or program 


termination. 


11.1.54.2.2 Subroutine Specifications 


The range of application: Density, Kg/m> Temperature, °C 
610.5 to 778.5 -18.0 to 95.0 
779.0 to 824.0 -18.0 to 125.0 
824.5 to 1075.0 -18.0 to 150.0 

Referenced modules: ALPHAA, VCF54A, SDIVA, MPYA 

FORTRAN functions: FLOAT 

Average execution time: 2320 VCF entries/CPU second 

IBM 370/168 


The subroutines are written in ANSI/ASA FORTRAN using integer arithmetic. The 


size and storage requirements are: 


1. Compilabie source statements 115 
2. Decimal storage bytes 2832 
3. Words 708 
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11.1,54.2.3 Calling Sequence 


CALL TAB54A (DENI5, DEGC, VCFC, VCFP, !FLAG) 
INPUT DESCRIPTION 


DENiI5 = Density at 15 °C 
(DEN15 returned will be rounded to nearest 0.5 Kg/m>) 


DEGC - Observed temperature 
(DEGC returned will be rounded to nearest 0.05 °C) 


OUTPUT DESCRIPTION 


VCFC - Output VCF rounded to 5 significant figures for computational 
purposes 
i.e. VCFC = 1.XXXX 


or VCFC = 0.XXXXX 


VCFP - Qutput VCF rounded to 4 decimal places for printing purposes 
i.e. VCFP = 1.XXXX 
or VCFP = 0.XXXX 


IFLAG - Status Code 


Q: Indicates input variables are within the range of applica- 


tion. 


1: Input data outside limits of correlation as given in 
11.17.54, 


-1: Indicates input DEN15 or input DEGC outside range of appli- 
cation as given in 11.1.54; VCFC and VCFP set to -1.0000. 
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11.21-254.2.4 Method of Calculation 


The subroutine evaluates the equation 


VCF = EXP[- %15 At(1.0 + 0.8 %5 At)] 


where At = DEGC - 15.0 
pepe lee a 
15 2 Pas 
P15 


A full explanation of the equations and the parameters Kg and K; may be found 
in AP! Standard 2540, TABLE 54, 11.1.54. 


11.1.54.2.5 Examples 


These examples are tutorial in nature and are not intended to be sufficient 
for subroutine checkout. The examples given in procedure 11.1.54.3 are to be 


used for the computer checkout. 


Example 1 
DENI5 = 838.93 
DEGC = 32.48 
CALL TAB54A (DEN15, DEGC, VCFC, VCFP, IFLAG) 
After the call: DENIS = 839.00 
DEGC = 32.50 
VCFC = .98467 
VCFP = .9847 
IFLAG = 0 


Example 2 
DENI5 = 789.7 
DEGC = 115.55 
CALL TAB54A (DEN15, DEGC, VCFC, VCFP, IFLAG) 
After the call: DENIS = 789.50 
DEGC = 115.55 
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Example 3 
DENI5 
DEGC 


838.0 
200.00 


SECTION 1—VoLUME CORRECTION FACTORS 


VCFC = .89863 
VCFP = .8986 
I FLAG 1 


CALL TAB54A (DENI5, DEGC, VCFC, VCFP, |FLAG) 


After the call: 
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DENI5 = 838.0 
DEGC = 200.00 
VCFC = -1.0000 
VCFP = -1.0000 
IFLAG = -1 
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11.1.54.2.6 FLOWCHART 


INPUT: DENSITY 
OBSERVED TEMPERATURE 


ROUND INPUT DATA 
TO SPECIFICATION 


SET VCF = -1.0000 
ERROR FLAG ERR = -1 
RETURN 


CHECK 
TO SEE IF 
DATA WITHIN 
BOUNDS OF 
TABLE 


CALCULATE ALPHA 


YES 


1S DATA IN 
EXTRAPOLATED 


REG! ON? 


SET ERROR 
FLAG = 1 


SET ERROR 
FLAG = 0 


RETURN 
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11.1.54.2.7 Subroutine Listing 


TABS 4A This subroutine serves as the input/output routine to 
the subsequent modules necessary in the calculation of 
volume correction factor from density at 15 °C and 


observed temperature. 


Referenced Modules 


ALPHAA This module is designed to calculate alpha for use in 


determination of volume correction factor. 


MPYA This module performs integer multiplication with a maxi- 


mum of 17 digits. 


SDIVA This module is designed to produce additional accuracy 
from an integer divide where the numerator is 10000 


greater than the denominator. 


VCFD4A This module is designed to calculate volume correction 
factor. 

SUBROUTINE TAB54A(DEN15 , DEGC, VCFC ,VCFP,IFLAG) 54A00010 
Cc 54A00020 
Cc (C)COPYRIGHT 1980 54A00030 
Cc AMERICAN PETROLEUM INSTITUTE 54A00040 
Cc ALL RIGHTS RESERVED 54A00050 
CG 54A00060 
Cc THIS SUBROUTINE IS A VOLUNTARY STANDARD AND WAS DEVELOPED 5§4A00070 
CG UNDER THE AUSPICES OF THE JOINT API-ASTM COMMITTEE ON STATIC 5§4A00080 
Cc PETROLEUM MEASUREMENT IN PART FROM DATA GENERATED 54A00090 
Cc BY A PROJECT FUNDED BY THE AMERICAN PETROLEUM 54A00100 
Cc INSTITUTE AT THE U.S. NATIONAL BUREAU OF STANDARDS, 54A00110 
Cc GAITHERSBURG, MARYLAND. 54A001 20 
Cc 54A001 30 
Cc INQUIRIES CONCERNING ITS APPLICATION SHOULD 54A001 40 
Cc BE ADDRESSED TO: 54A00150 
Cc AMERICAN PETROLEUM INSTITUTE 54A00160 
Cc MEASUREMENT COORDINATION 54A001 70 
CG 2101 L STREET, N.W. 54A00180 
CG WASHINGTON, DC 20037 54A00190 
CG §4A00200 
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He HER He ae ae EAC a Oe AE NE ae A ee KE le ee ake ake sae ae eR ae a aE Oe Xe ale ote le ae ake He ate ale oie ale ole oe ade ae ole ake Xe ate ae ale oe ole ate see 


Lo as 
* THIS SUBROUTINE OR THE MATHEMATICAL RELATIONSHIPS * 
. REPRESENTED THEREBY MAY BE USED BY ANYONE WISHING 
7 TO DO SO, BUT THE AMERICAN PETROLEUM INSTITUTE, * 
* THE AMERICAN SOCIETY FOR TESTING AND MATERIALS, * 
. AND THE INSTITUTE OF PETROLEUM AND THEIR = 
« RESPECTIVE MEMBERS AND THE U.S. NATIONAL BUREAU * 
i OF STANDARDS, SHALL NOT BE HELO RESPONSIBLE OR * 
= LIABLE IN ANY WAY FROM LOSS OR DAMAGE, INCLUDING, * 
* BUT NOT LIMITED TO, CONSEQUENTIAL DAMAGE , * 
* RESULTING FROM SUCH USAGE OR FOR VIOLATION OF = 
* ANY FEDERAL, STATE, OR MUNICIPAL LAWS, REGULATIONS * 
se OR PRACTICES OF THE UNITED STATES OR OF ANY 
= FOREIGN COUNTRY. ie 
ae Lo 
* a 


ee ae a ake ee wee ae sae oe a ke ee ke ok ale oie ae aie ae le ae oe ke ae ale sie Ste ate oe oe ale ale ole Re fe ae ole Me Mee ale ae ae Me ale Sle aie le ake ae ak ae 


THE THERMAL EXPANSION PROPERTIES (VOLUME CORRECTION FACTORS, 
VCFS) FOR PRODUCTS (EXCLUDING LUBE STOCKS) AND CRUDES 

ARE CORRELATED IN TWO SEPARATE, GENERALIZED TABLES 

AS A FUNCTION OF TEMPERATURE AND DENSITY. THE 

PREDICTED PRECISION AT 95 PERCENT CONFIDENCE IS: 


VCF PRECISION AT 95 PERCENT CONFIDENCE, PERCENT 


TEMPERATURE 40C 65C 90C 1206 
CRUDES, PRODUCTS 0.05 0.15 0.25 0.35 


IF THIS PRECISION IS UNACCEPTABLE, IT IS RECOMMENDED 
THAT THE ACTUAL THERMAL EXPANSION PROPERTIES OF THE 
SUBSTANCE BE MEASURED AND THE VCF BE DETERMINED 

THE MEASURED DATA. THE INSTRUCTIONS FOR THIS PROCEDURE 
USING TABLE 54C WITH EITHER K OR ALPHA VALUES DERIVED 
FROM THE MEASURED DATA. THE INSTRUCTIONS FOR THIS 
PROCEDURE ARE GIVEN IN TABLE 54C. 


THIS SUBROUTINE IS DESIGNED TO ACCEPT AS 

INPUT DENSITY VALUE AT 15 C(DEN15)AND OBSERVED 
TEMPERATURE IN DEGREES CELSIUS (DEGC) AND 
PRODUCE THE VOLUME CORRECTION FACTOR (VCF) FOR 
API TABLE 54A, GENERALIZED CRUDE OILS 

VOLUME CORRECTION TO 15 C. 


THIS SUBROUTINE CALLS THE FOLLOWING MODULES 
ALPHAA (CALLS SDIVA) 
VCF54A (CALLS MPYA) 


DEN15 SHOULD BE PASSED ROUNDED TO 0.5 KG/CU M. 
THE SUBROUTINE WILL HOWEVER ROUND THE VALUE AND 
RETURN THE CORRECTED VALUE. 


DEGC SHOULD BE PASSED ROUNDED TO 0.05C. 
THE SUBROUTINE WILL ROUND THE VALUE AND RETURN 
THE CORRECTED VALUE. 


VCFC IS THE RETURNED VOLUME CORRECTION FACTOR 
CORRECT TO FIVE(5) SIGNIFICANT FIGURES. 


DONNANDNDDDDDODDDNDDNDNDANADNDADADDANDA ANDANAAGAGAANANDHADAVDAADAGAGIAININIINIAANNNO 
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54A00210 
5§4A00220 
54A00230 
54A00240 
54A00250 
54A00260 
54A00270 
54A00280 
§4A00290 
54A00300 
54A00310 
54A00320 
54A00330 
54A00340 
54A00350 
54A00360 
54A00370 
54A00380 
54A00390 
54A00400 
54A00410 
§4A00420 
54A00430 
54A00440 
54A00450 
54A00460 
54A00470 
54A00480 
54A00490 
54A00500 
54A00510 
54A00520 


54A00530 
54A00540 
54A00550 
54A00560 
54A00570 
54A00580 
54A00590 
54A00600 
54A00610 
54A00620 
54A00630 
54A00640 
54A00650 
54A00660 
54A00670 
54A00680 
54A00690 
54A00700 
54A00710 
54A00720 
§4A00730 
54A00740 
54A00750 
54A00760 
54A00770 
54A00780 


Cc 

Cc 

Cc 

Cc 

c 

Cc 

Cc 

Cc 

Cc 

Cc 

Cc 

Cc 

CG 

Cc 

Cc 

Cc 

Cc 

G 

Cc 

Cc 
10 
20 
30 

Cc 

Cc 

Cc 


40 


50 
60 
70 
80 
90 
100 
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VCFP IS THE RETURNED VOLUME CORRECTION FACTOR 
CORRECT TO FOUR(4) DECIMAL DIGITS. 


IFLAG IS THE ROUNDED STATUS CODE WHICH SHOULD 
BE CHECKED BY THE USER IN THE CALLING PROGRAM 
=0 NO ERROR 


=1 INPUT DATA WITHIN EXTRAPOLATION RANGES AS 


GIVEN IN API 2540, TABLE 54, 11.1.54 
=-1 INPUT DATA OUTSIDE SPECIFIED RANGE OF 
APPLICATION AS GIVEN IN API 2540, 


TABLE 54, 11.1.54 


DATA IBAS/1500/ 
DATA IBP1 ,IBP2/7785, 8245/ 
DATA NBP1/10750/ 


DATA ITMP1 , ITMP2 , ITMP3/9500, 12500, 15000/ 
DATA TEP1,IEP2,IEP3/6000 ,9000,12000/ 


DATA IEDEN/7580/ 
DATA IFDEN/6105/ 
DATA IBT1/-1800/ 
DATA KO ,K1/6139723 ,0/ 


IFLAG=- 1 
VCFP=-1 .00 
VCFC=-1.00 


ROUND INPUT PARAMETERS 


IDEN=(DEN15*100+25.0)7/50.0 
IDEN=IDEN*5 

DEN1 5=FLOAT (IDEN) /10.0 
ITEMP=DEGC*1000. 

IFC ITEMP.GT.0)TTEMP=ITEMP+25 
IFC ITEMP.LT.0)ITEMP=ITEMP - 25 
ITEMP=ITEMP/ 50*5 

DEGC=FLOAT (ITEMP)/100.0 


CHECK API RANGES 


IF (IDEN-IFDEN)10,20, 20 
CONTINUE 

RETURN 

IF ( IDEN-NBP1 )30,30,10 
CONT INUE 


CHECK VALID TEMPERATURE RANGES 


IDT=ITEMP- IBAS 

IF (ITEMP-IBT1)40,50,50 
CONTINUE 

RETURN 

IF ( IDEN-IBP1 )60, 60,70 

IF (ITEMP-ITMP1)100,100,40 
IF (IDEN-IBP2)80,80,90 

IF (ITEMP-ITMP2)100,100,40 
IF(ITEMP-ITMP3)100,100,40 
CONTINUE 
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54A00790 
54A00800 
§4A00810 
54A00820 
54A00830 
54A00840 
54A00850 
54A00860 
54A00870 
54A00880 
54A00890 
54A00900 
54A00910 
54A00920 
54A00930 
54A00940 
54A00950 
54A00960 
54A00970 
54A00980 
54A00990 
54A01000 
54A01010 
54A01020 
54A01030 
54A01040 
54A01050 
54A01060 
54A01070 
54A01080 
54A01090 
54A01100 
§4A01110 
§4A01120 
§4A01130 
54A01140 
54A01150 
54A01160 
§4A01170 
54A01180 
54A01190 
54A01200 
54A01210 
54A01220 
§4A01230 
54A01240 
54A01250 
54A01260 
54A01270 
54A01280 
54A01290 
54A01300 
54A01310 
54A01320 
5§4A01330 
54A01340 
§4A01350 
54A01360 


X-356 


go0 9Q 04 00 


aa0 


160 


170 
180 
190 
200 
210 
220 


oR exeneke) 


230 


aa0 


240 


250 


aaaaagaaga 


API MPNS*¥11-1 VOL*X 80 MM 0732290 OSebeel JTT 
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CALCULATE ALPHA 
IDEN=IDEN* 10 


CALL ALPHAA( IDEN, KO,K1,IALF) 


IDEN=IDEN/ 10 
CALCULATE VCF 


CALL VCF54A(TALF,IDT ,IVCF) 
IFLAG=0 


CHECK TO DETERMINE IF IN EXTRAPOLATED REGION 


IF (IDEN- IEDEN) 160,170,170 
CONTINUE 

IFLAG=1 

GO TO 220 

IF (IDEN-IBP1)190,180,180 
IF (ITEMP-IEP1 )220, 220,160 
IF (IDEN-IBP2)210, 200,200 
IF (ITEMP-IEP2)220,220,160 
IF (ITEMP-IEP3 )220,220,160 
CONTINUE 


CALCULATE PRINT AND CALCULATION VALUES OF VCF 
PRINT VALUE(PVCF)ROUNDED TO 4 DECIMAL DIGITS 
CALCULATION VALUE(CVCF) ROUNDED TO 5 SIGNIFICANT DIGITS 


JVCF=(IVCF/1000+5)/10 
PVCF=JVCF 

PVCF=PVCF/10000. 

IF( IVGF - 100000000 )230, 240,240 
CONTINUE 


VCF LESS THAN ONE, FIVE DECIMALS RETURNED 


JVCF=(IVCF/100+5)/10 
CVCF=JVCF 
CVCF=CVCF/100000. 
GO TO 250 
CONTINUE 
CVCF=PVCF 
CONTINUE 
VCFP=PVCF 
VCFC=CVCF 

RETURN 

END 


SUBROUTINE SDIVA(INUM, IDENOM, TIRES) 


THIS MODULE IS DESIGNED TO PRODUCE ADDITIONAL 

ACCURACY FROM AN INTEGER DIVIDE WHERE THE NUMERATOR 

IS 10000 GREATER THAN THE DENOMINATOR. THE SUBROUTINE 
ASSUMES PROPER SCALING OF BOTH THE INPUT NUMERATOR 

AND DENOMINATOR AND WILL RETURN THE RESULTS MULTIPLIED 
BY 10000. 
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54A01370 
54A01380 
54A01390 
54A01400 
54A01410 
54A01420 
54A01430 
54A01440 
54A01450 
54A01460 
54A01470 
54A01480 
54A01490 
54401500 
54401510 
54A01520 
54A01530 
54A01540 
54A01550 
54A01560 
54A01570 
54A01580 
54401590 
54A01600 
54A01610 
54A01620 
54A01630 
54A01640 
54A01650 
54401660 
54A01670 
54A01680 
54A01690 
54A01700 
54A01710 
54A01720 
54A01730 
54A01740 
54A01750 
54A01760 
54A01770 
54A01780 
54401790 
54A01800 
54A01810 
54A01820 
54401830 
54A01840 


54A01850 
54A01860 
54A01870 
54A01880 
54A01890 
54A01900 
§4A01910 
54A01920 
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Cc 54A01930 
IRES1=INUM/ IDENOM 54A01940 
IRES2=( INUM- IRES1 * IDENOM) *10000/ IDENOM 54A01950 
IRES=IRES1 *10000+IRES2 54A01960 
RETURN 5§4A01970 
END 54A01980 
SUBROUTINE ALPHAA( IRHO,KO,K1, IALF) 54A01990 
Cc 54A02000 
Cc THIS MODULE IS DESIGNED TO CALCULATE ALPHA FOR §4A02010 
c USE IN DETERMINATION OF VOLUME CORRECTION 54A02020 
Cc FACTOR. 54A02030 
Cc 54A02040 
c INPUT VARIABLES 54A02050 
c IRHO=DENSITY*100 (KILOGRAMS/CUBIC METRE) 54A02060 
Cc KO ,Ki= COEFFICIENTS OF DESIRED CURVE * 10000 §4A02070 
CG §4A02080 
CG ALGORITHM- §4A02090 
Cc ALPHA=K0/ RHO * *2+K1 /RHO 54A02100 
CG §4A02110 
Cc CALCULATE K1/RHO 54A02120 
Cc §4A02130 
INUM=K1 *10000 54A02140 
CALL SDIVACINUM, IRHO, IALF1 ) §4A02150 
CG 54A02160 
Cc CALCULATE KOQ/RHO**2 54A02170 
Cc 54A02180 
INUM=K0* 100 54A02190 
CALL SDIVACINUM, IRHO, IALFS) 54A02200 
CALL SDIVACIALFS, IRHO, IALF2) §4A02210 
IALF=(TALF1+IALF2+500 )/1000 54A02220 
RETURN 54A02230 
END 54A02240 
SUBROUTINE VCFS54A(IALF ,IDT,IVCF) §4A02250 
Cc 54A02260 
Cc THIS MODULE IS DESIGNED TO CALCULATE VOLUME 5§4A02270 
Cc CORRECTION FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE 54A02280 
Cc AS INTEGERS, THE SUBROUTINE RETURNS WITH A 8 §4A02290 
CG OR 9 DIGIT VALUE DEPENDENT UPON WHETHER IDT 54A02300 
Cc IS POSITIVE OR NEGATIVE. §4A02310 
Cc 54A02320 
CG ALGORITHM- §4A02330 
Cc VCF=EXP (-ALPHA*DT(1.0+0.8*ALPHA*DT)) 54A02340 
CG §4A02350 
Cc CALCULATE ALPHA*DT 5§4A02360 
Cc §4A02370 
ITERM1=IALF *IDT §4A02380 
ITERM1=ITERM1 /10 5§4A02390 
Cc §4A02400 
c CALCULATE 0.8 *ALPHA *DT §4A02410 
Cc §4A02420 
ITERM2=ITERM1 /5*4 54A02430 
Cc 54A02440 
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X-358 CHAPTER 11—PuysicaL PROPERTIES DATA 
Cc CALCULATE EXPONENT -ALPHA*DT(1.0+0.8*ALPHA*DT) 54A02450 
Cc 54A02460 
CALL MPYA(ITERM1 , ITERM2, ITERMS) 54A02470 
IX=- (ITERM1+ITERMS ) 54A02480 
1; §4A02490 
CG CALCULATE EXPONENTIAL( FIRST 7 TERMS OF POWER SERIES) 54A02500 
Cc 54A02510 
ISUM1=100000000+IX 54A02520 
CALL MPYA(IX,1IX,ISUM2) 54A02530 
ISUM2=ISUM2 /2 54A02540 
CALL MPYA( IX, ISUM2 , ISUM3 ) 54A02550 
ISUM3=ISUMS3 /3 54A02560 
CALL MPYA( IX, ISUM3 , ISUM4 ) 54A02570 
ISUM4=ISUM4 /4 54A02580 
CALL MPYA( IX, ISUM4 , ISUMS ) 54A02590 
ISUM5=ISUM5/5 54A02600 
CALL MPYA( IX, ISUMS5 , ISUM6 ) §4A02610 
ISUM6=ISUM6E /6 5§4A02620 
IVCF=ISUM1+1ISUM2+ISUM3+1ISUM4+ISUM5+ISUM6 54A02630 
RETURN 54A02640 
END 54A02650 
SUBROUTINE MPYA(IX,IY,1Z) §4A02660 
Cc 54A02670 
Cc THIS MODULE PERFORMS INTEGER MULTIPLICATION. THE TOTAL §4A02680 
Cc NUMBER OF DIGITS IN IX AND IY MUST NOT EXCEED 17. OTHER 54A02690 
Cc WISE, OVERFLOW WILL OCCUR. 54A02700 
Cc §4A02710 
IU1 = IX / 10000 §4A02720 
K1 = 10000 * Iv §4A02730 
Ivi = IX - K1 54A02740 
Iu2 = IY / 10000 §4A02750 
K2 = 10000 * IU2 §4A02760 
Iv2 = IY - K2 §4A02770 
K3 = Iui * IV2 + IU2 * Ivi + Iv1 * Iv2 / 10000 §4A02780 
IZ = (K3 + 5000) / 10000 + IU1t * TU2 §4A02790 
RETURN 54A02800 
END 54A02810 

Errata 
Please make the following updates to this subroutine listing. For an explanation 
of the updates see 11.1.6. 

current: DATA IBP1,18P2/7785,8245/ 54400930 
updated: DATA IBP1,18P2/7785,8240/ 54A00930 
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11.1.54.3 IMPLEMENTATION PROCEDURE FOR SUBROUTINE TAB54A 


In today's world there is a rapidly developing trend to use computers in 
custody transfer measurements, accounting work, process control systems, and a 
variety of other uses where tables must be incorporated into computer codes. 
Yet many of the printed tables are almost impossible to code due to the fact 
that someone has slightly modified selected values to differ from those 
obtained using the mathematical expression that supposedly generated the 
tables. To overcome this problem it is often required to add extensive excep- 
tion tables to the codes. This makes the codes large and cumbersome to modify, 
and restricts their use to larger computer systems. Also with the development 
of better measuring devices it is often possible to gain more digits of pre- 
cision in the table parameters, necessitating finer grid of the tabular 
values, resulting in larger volumes of printed tables to be handled. 

In addition, as the on-line use of computers for metering purposes 
increases, the direct use of printed tables will decrease; therefore, the new 
Standard is an explicit implementation procedure rather than a set of equa- 
tions or a set of tables. It must be remembered that the standardization of 
the implementation procedure implies standardization of the set of mathe- 


matical expressions used within the code. Absolute adherence to the procedure 


will help to insure that all computers and computer codes of the future, meet- 
ing the specifications and restrictions, will be able to produce the same 
results. It is believed that this procedure will allow for the maximum 


machine and code independence. The procedure was implemented in computer 
subroutines issued by API in 1980 using ANSI/ASA FORTRAN. The subroutines 
maximized precision by the use of 32-bit integer arithmetic. 

The procedure as described in the following text can, by careful and 
deliberate application of numerical analysis, be used with the majority of 
languages and word sizes in present or anticipated use. To use the standard 
procedure means to maintain absolute and unwavering adherence to the number of 
digits specified at each step and to the calculation procedure as outlined. 

In the procedure, the nomenclature used is that of ASTM £380-76, unless 
an explicit procedure is given below, in which case the procedure given below 
overrides that given by ASTM E380-76. 

In the procedure the nomenclature (XXX.XX) means five (5) mathematically 


significant digits. 
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The term rounding as used in the procedure means: Consider only the 
first digit to the right of the desired position and 
a. Jf that digit is greater than 4, increment the desired position by 
one and drop the remaining digits to the right of the desired posi- 
tion. 
b. If that digit is less than 5, simply drop the remaining digits to 
the right of the desired position. 


All constants are used to exactly the number of digits printed. 


Calculation Procedure 


STEP 1: Round input variables of density and observed temperature 
ae Round density to the nearest 
0.5 Kg/m? and carry as 5 digit result 
jee. density (DENI5) = XXXX.X 
b. Round observed temperature to the nearest 
0.05 °C and carry as 5 digit result 
i.e. observed temperature (DEGC) = XXX.XX 


STEP 2: Choose the appropriate values of Kg and Kj as described in API Stan- 
dard 2540, TABLE 54, 11.1.54 
Kg is an 7 digit constant 
ie@e Kg = XXXeXXXX 
K; is a 4 digit constant 
jee. Ky = »XXXX 


STEP 3: Calculation of alpha (coefficient of thermal expansion) 


K K 
define g =-2+—1 
2 p 
p 
Evaluat : 
. Eva e = 
a ua 72 


K 
a(1) Compute _9 = .XXXXXXXX 
fs) 


K./0 
a(2) Compute —2 =  OOOXXXXXXX 
fe) 
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Ky 
be. Evaluate — 
p 
K 
b(1) 1 = .O00OXXXXXXX 
p 


c. Sum results of a(2) and b(1) and round to nearest 0.0000001 
»OOOXXXX 


bee. a 


STEP 4; Calculate At 
define At = DEGC - Tpase 
Note: Tpase carried to 4 digits XX.XX (15.00) 
Carry At = XXX-XX 


STEP 5: Calculation of VCF 
define VCF = EXPf-aATt(1.0 + 0.8aAT)] 
= EXP[-aAt - 0.8 a2 At2) 
a. Calculation of exponent 
a(l) aAt = «XXXXXXXX 
a(2)  .Badt = .XXXXXXXX 
a(3) «8 a2 At2 = .OXXXXXXX 
a(4) -aAt - 0.8 a4 At4 = O.XXXXXXXX with any trailing 
digits dropped 
b. Catculation of exponential 
VCF = EXP[-aAt - 0.8 02 At2] = X.XXXXXX 
using at least the first 7 terms of the power series expansion 


of e% 


Computational _ 


1.XXXX rounded to nearest 0.0001 if VCF > 1 
value of VCF 


O.XXXXX rounded to nearest 0.00001 if VCF < 1 


Table value 
of VCF 


XeXXXX rounded VCF to nearest 0.0001 


The 1980 integer FORTRAN code issued by API contained both an integer 
division and an integer multiplication algorithm. A description of each is 


contained in the fol lowing: 
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INTEGER MULTIPLICATION PROCEDURE 
(FOR 32 BIT ARITHMETIC) 
DATA DEFINITION 

X, Y are integer numbers that are equal fo or less than 2 x 109 
(slightly less than 231), A larger value may cause overflow. In addition, 
the total number of digits in X and Y must not exceed 17, otherwise overflow 
will occur. 

Z is the product XY scaled by 1078, i.e. Z = xv/108. 

Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically, at least 15 digits are 
needed to obtain 6 digit precision, 16 for 7 and 17 for 8. 

The largest values of X and Y that may be used are 2 000 000 000 and 


99 999 999. 

CALCULATION 

X/10000 = Uy 
10000 Uy = Ky 
X- Ky = Vy 
¥/10000 = U2 
10000 Uz = K2 
Y-Ko = V2 


(U,V2) + (U2V,) + (VzV2/10000) = Kz 

(K3 + 5000)/10000 + (UyU2) = Z 

Note: Z has been scaled by 10-8 and may have to be rescaled before use. 
TOTAL DIGITS IN X_AND_Y 12 13 14 15 16 «I 


DIGITS IN PRODUCT, 2 3-4 4-5 5-6 6-7 7-8 8-9 


INTEGER DIVISION PROCEDURE 
(FOR 32 BIT ARITHMETIC) 
DATA DEFINITION 


X, Y are integer numbers such that X is equal to or less than 292 - | 


and Y is of order of magnitude 104 less than X. 
R is the quotient of & scaled by 104, ise. R = * * 104, 


Note: {tf it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically the more digits that are 


carried in both X and Y, the more accurate digits on output. 
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CALCULAT LON 


X/Y = Uy 
U1Y = Ky 
X- Ky, = Vq 
Vi/Y = Up 


U, * 10000 + Up = R 
Note: R has been scaled by 104 and may have fo be rescaled before use. 


Examples For Checkout 


The following examples are designed to aid In checkout procedures for 
both the existing AP! subroutine and any subroutines which are developed using 
the implementation procedure outlined above. The lines of the examples are 
numbered to correspond to the corresponding lines within the calculation pro- 


cedure. 


EXAMPLE 1: Assume a crude of! with an input density corrected to 15 °C of 
903.26 Kg/m> and an observed temperature of 40.52 °C. Calculate 
the VCF required to correct the volume to 15 °C, correct to 4 


decimal digits. 


STEP 1: ae rounded DENIS = 903.5 
b. rounded DEGC = 40.50 


STEP 2: Kg = 613.9723 (as of May 1, 1980) 
K, = 0.0 (as of May 1, 1980) 


K 
STEP 3: a. Evaluate a 
p 


K 
a(i) 2 = 0.67954875 
p 


K /p 
a(2) 2. = 0.0007521292 
(e) 


Copyright por American Petroleum Institute 
Mon Feb 07 13:43:29 2005 


API MPMS*11-1 VOL*X 80 MM 0732250 OS5ebecd L590 


X-364 CHAPTER 11—PHYSICAL PROPERTIES DATA 
K 
be. Evaluate ale 


K 
b(1) Lb = 0.0 
Ce a= 0.0007521 
STEP 4: At = 25.50 


STEP 5: Calculation of VCF 

a. Calculation of exponent 
a(1) 0.01917855 
a(2) 0.015354284 
a(3) 0.00029425 
a(4) -0.01947280 

be. Calculation of exponential 
VCF = 0.980715 


VCF correct to 4 decimal digits = 0.9807 


EXAMPLE 2: Assume a crude oi! with an input density corrected to 15 °C of 
779.0 Kg/m> and an observed temperature of 3.9 °C. Calculate 
the VCF required to correct the volume to 15 °C, correct to 5 sig- 


nificant figures. 


STEP 1: ae rounded DENI5 = 779.0 
be rounded DEGC = 3.90 

STEP 2: Ko = 615.9723 (as of May 1, 1980) 
K, = 0.0 (as of May 1, 1980) 


K 
STEP 3: ae Evaluate = 
p 


K 
a(1) —2 = 0.78815442 
p 
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K_/p 
a(2) O° = 9.00101175 
p 


K 
b. Evaluate 1 


Ce a = 0.0010118 
STEP 4: At = -11.10 


STEP 5: Calculation of VCF 

ae Calculation of exponent 
a(1) -0.01123098 
a(2)  -0.00898478 
a(3) 0.000 10090 
a(4) 0.01113008 

be. Calculation of exponential 
VCF = 1.011192 


VCF correct to 5 significant figures 1.0112 


EXAMPLE 3: Assume a crude oi! with an input density corrected to 15 °C of 
1008.0 Kg/m> and an observed temperature of 131.9 °C. Calculate 
the VCF required to correct the volume to 15 °C, correct to 5 sig- 


nificant figures. 


STEP 1: ae rounded DENIS 
be rounded DEGC 


1008.0 
131.90 


STEP 2: Kg = 613.9723 (as of May 1, 1980) 
K, = 0.0 (as of May 1, 1980) 
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X-366 


STEP 3: ae 
b. 
Co 

STEP 4: At 


CuHapter 11—Puysicat Properties DATA 


K 
Evaluate Oo 
2 
re) 
K 
a(1) 2 = 0.60909950 
p 
K/e 
a(2) 2. = 0.0006042653 
p 


K 
Evaluate oA 


K 
b(1) lL = 0.0 
e) 


a = 0.0006043 


= 116.90 


STEP 5: Catculation of VCF 


ae 


Calculation of exponent 
a(l) 0.07064267 

a(2) 0.05651413 

a(3) 0.00399230 

a(4) -0.07463497 
Calculation of exponential 
VCF = .928082 


VCF correct to 5 significant figures = 0.92808 


11.1.54.4 TABLE 54B—GENERALIZED PROD- dard (see 11.1.54.5 and 11.1.54.6). All of these volumes 
UCTS, CORRECTION OF VOLUME TO are at saturation conditions. Pressure corrections from 
15°C AGAINST DENSITY AT 15°C saturation are not included. 


TABLE 54B gives volume correction factors for con- 
verting product volumes observed at temperatures 
other than 15°C to corresponding volumes at 15°C. 

The volume correction factors given in this table are 
the result of a computer procedure which is the Stan- 
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Density, kg/m? aC 
653 to 778 -18to 95 
778 to 824 —18 to 125 
824 to 1075 —18 to 150 
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The volume correction factors given in this table are 
based on data from the U.S. National Bureau of Stan- 
dards and from other published data. Portions of the 
density and temperature ranges represent areas beyond 
these data. Thus, mathematical techniques were em- 
ployed to extrapolate beyond the density and tempera- 
ture ranges of the given data to determine the volume 
correction factors for these areas. These factors are 
denoted by an asterisk (*). Extension of this table be- 
yond the ranges shown is not recommended. 


X-367 


Increments used in this table for determining volume 
correction factors are 0.25°C and 2 kg/m’. Interpolation 
between either temperature or density is not intended 
since there is no practical method of interpolation that 
will produce the accuracy obtainable from the Stan- 
dard. 


This table must be entered with a known den- 
sity at 15°C and with an observed temperature. 


11.1.54.5 PROGRAM DOCUMENTATION FOR SUBROUTINE TAB54B— 
GENERALIZED PRODUCTS, CORRECTION OF VOLUME TO 15°C 
AGAINST DENSITY AT 15°C 


The thermal expansion properties (volume correction factors, VCF's) for 
products (excluding lube stocks) and crudes are correlated in two separate 
generalized tables as a function of temperature and density. The predicted 


precision at 95% confidence is: 


VCF Precision at 95% Contidence, % 
40 °C 65 °C 90 °C 120 °C 
+0405 115 625 035 


Temperature 

Crudes & Products 
If this precision is unacceptable, it is recommended that the actual thermal 
expansion properties of the substance be measured and the VCF be determined 
using TABLE 54C with either K or alpha values derived from the measured data. 


The instructions for this procedure are given in TABLE 54C. 


ABSTRACT 


Subroutine Tittle: TAB54B - TABLE 54B, Generalized Products, 


Volume Correction to 15 °C. 
Description: This subroutine is designed to calculate the 
volume correction factor required to convert 
a volume at an observed temperature to the 
corresponding volume at 15 °C assuming the 


substance can be characterized as a product. 
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Program Responsibility: American Petroleum Institute 
Measurement Coordination 
2101 L Street, NW. 
Washington, D.C. 20037 


Date Issued: August 1980 
Language: FORTRAN, ANSI/ASA Standard 
Reference: AP! Standard 2540, TABLE 54, 11.1.54 


THIS SUBROUTINE WAS DEVELOPED USING THE MATHEMATICAL ALGORITHMS 
AND SPECIFICATIONS DESCRIBED IN THE DOCUMENT PROCEDURE 11.1.54.6. 
ANY MODIFICATIONS TO THIS SUBROUTINE MUST RIGIDLY ADHERE 
TO THE SAME ALGORITHMS AND SPECIFICATIONS. 


11.1.54.5.1 Introduction 


TAB54B is a computer subroutine designed to calculate the volume cor- 
rection factor (VCF) necessary to convert a volume of a generalized product at 
a specified temperature in degrees Celsius (°C) and of a specified 15 °C den- 
sity in kilograms/cubic metre (Kg/m>) to the equivalent volume at 15 °C. The 
subroutine accepts as input the density at 15 °C rounded to the nearest 0.5 
Kg/m> and the observed temperature rounded to the nearest 0.05 °C. If either 
input value has not been properly rounded, the subroutine wil! round the 
values and return the corrected values. The subroutine returns one value of 
VCF with 5 significant figures of accuracy for computation purposes and 
another VCF value rounded to four decimal places for printing purposes. The 
subroutine also outputs a status code for user convenience. The code is set 
to -1 if an error condition occurs and to +1 if the input values are outside 
the limits of the correlation. A status code of zero is returned if the input 
values are within the limits of the correlation. The limits of the correla- 
tion including the extrapolated region are depicted in Figure X-17. The calling 
program must check the flag and provide the user with appropriate warning mes- 


sages or program termination. 
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11.1,.54.5.2 Subroutine Specifications 


The range of application: 


Density, Kg/m Temperature, °C 
653.0 to 778.5 -18.0 to 90.0 
779.0 to 824.0 -18.0 to 125.0 
824.5 to 1075.0 -18.0 to 150.0 
Referenced modules: ALPHAB, VCF54B, SDIVB, MPYB 
FORTRAN functions: FLOAT 
Average execution time: 1890 VCF Entries/CPU second 
1BM 370/168 


The subroutines are written in ANSI/ASA FORTRAN using integer arithmetic. The 


size and storage requirements are: 


1. Compilable source statements 140 
2. Decimai storage bytes 3102 
3. Words 776 


11.1,54.5.35 Calling Sequence 


CALL TAB54B (DENI5, DEGC, VCFC, VCFP, IFLAG) 
INPUT DESCRIPTION 


DENI5 - Density at 15 °C 
(DEN15 returned wil! be rounded to nearest 0.5 Kg/m>) 


DEGC - Observed temperature, °C 
(DEGC returned will be rounded to nearest 0.05 °C) 
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OUTPUT DESCRIPT!ON 


VCFC - Output VCF rounded to 5 significant figures for computational 


purposes 
i.e. VCFC = 1.XXXX 
or VCFC = O.XXXXX 


VCFP - Output VCF rounded to 4 decimal places for printing purposes 
i.e. VCFP = 1.XXXX 
or VCFP = 0.XXXX 


IFLAG - Status Code 


O: Indicates input variables are within the range of applica- 


tion. 


1: Input data outside limits of correlation as given in 


11.1.54. 


-1: Indicates input DENI5 or input DEGC outside range of appli- 
cation as given in 11.1.54; VCFC and VCFP set to -1.0000. 


11.1.54.5.4 Method of Calculation 


The subroutine evaluates the equation 


VCF = EXP[= 045 AT(1.0 + 0.8 %15 at)] 


where At = DEGC - 15.0 
: _ Ko Pa 
15 2 P15 
P45 


A full explanation of the equations and the parameters Kg and Kj may be 
found in AP| Standard 2540, TABLE 54, 11.1.54. 
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11.1.54.5.5 Examples 


These examples are tutorial in nature and are not intended to be sufficient 
for subroutine checkout. The examples given in procedure 11.1.54.6 are to be 


used for the computer checkout. 


Example 1 
DENI5 = 838.93 


DEGC = 32.480 
CALL TAB54B (DENI5, DEGC, VCFC, VCFP, IFLAG) 
After the call: DENI5 = 839.0 
DEGC = 32.50 
VCFC = ,98515 
VCFP = .9851 
IFLAG = 0 
Example 2 
DEN1T5 = 889.0 
DEGC = 115.55 
CALL TAB54B (DENI5, DEGC, VCFC, VCFP, IFLAG) 
After the call: DENI5 = 889.0 
DEGC = 115,55 
VCFC = .91966 
VCFP = .9197 
[FLAG = 1 
Example 3 
DEGI5 = 838.0 


DEGC = 200.0 
CALL TAB54B (DEN15, DEGC, VCFC, VCFP, IFLAG) 


After the cail: DENI5 = 838.0 
DEGC = 200.00 
VCFC = -1.0000 
VCFP = -1.0000 
IFLAG = -] 
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11.1.54.5.6 FLOWCHART 


INPUT: DENSITY 
OBSERVED TEMPERATURE 


ROUND INPUT DATA 
TO SPECIFICATION 


CHECK 
TO SEE IF 
DATA WITHIN 
BOUNDS OF 
TABLE 


‘ia SET VCF = -1.0000 
ERROR FLAG IERR = -1 


RETURN 


YES 


CHOOSE APPROPRIATE 
VALUES OF Ko AND K, 
CALCULATE ALPHA 
CALCULATE VCF 


YES 


SET ERROR 
FLAG = 1 


1S DATA IN 
EXTRAPOLATED 
REGION? 


SET ERROR 
FLAG = 0 


RETURN 
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11.1.54.5.7 Subroutine Listing 


TAB54B This subroutine serves as the input/output routine to 
the subsequent modules necessary in the calculation of 
volume correction factor from density at 15 °C and 


observed temperature. 


Referenced Modules 


ALPHAB This module is designed to calculate alpha for use in 


determination of volume correction factor. 


MPYB This module performs integer multiplication with a maxi- 


mum of 17 digits. 


SDIVB This module is designed to produce additional accuracy 
from an integer divide where the numerator is 10000 


greater Than the denominator. 


VCF54B This module is designed to calculate volume correction 
factor. 

SUBROUTINE TAB54B(DEN15, DEGC, VCFC, VCFP, IFLAG) 54B00010 
Cc 54B00020 
Cc (C)COPYRIGHT 1980 54B00030 
Cc AMERICAN PETROLEUM INSTITUTE 54B00040 
Cc ALL RIGHTS RESERVED 54B00050 
Cc 54B00060 
Cc THIS SUBROUTINE IS A VOLUNTARY STANDARD AND WAS DEVELOPED 54B00070 
Cc UNDER THE AUSPICES OF THE JOINT API-ASTM COMMITTEE ON STATIC 54B00080 
Cc PETROLEUM MEASUREMENT IN PART FROM DATA GENERATED 54B00090 
Cc BY A PROJECT FUNDED BY THE AMERICAN PETROLEUM 54B00100 
Cc INSTITUTE AT THE U.S. NATIONAL BUREAU OF STANDARDS, 54B00110 
Cc GAITHERSBURG, MARYLAND. 54B00120 
Cc 54B00130 
Cc INQUIRIES CONCERNING ITS APPLICATION SHOULD 54B00140 
Cc BE ADDRESSED TO: 54B00150 
Cc AMERICAN PETROLEUM INSTITUTE 54B00160 
Cc MEASUREMENT COORDINATION 54B00170 
Cc 2101 L STREET, N.W. 54B00180 
Cc WASHINGTON, DC 20037 54B00190 
Cc 54B00200 


Copyright por American Petroleum Institute 
Mon Feb 07 13:43:32 2005 


API MPMNS*11.1 VOL*X 80 MM 0732290 05e6239 53T 


X-374 CHaPTerR 11—PuysicAL PROPERTIES DATA 


Me ste ake ake ale ake ole aie ae ale ate aie ak oie ole ale ale ae ake ale ote ake se ale ale ake ale ke ie aie of aie Ae ale le ae ae ale aie fe ake ale ole ale ale ae ae aie oie ale ae ae ale kk ae He He ie 


* THIS SUBROUTINE OR THE MATHEMATICAL RELATIONSHIPS 


% REPRESENTED THEREBY MAY BE USED BY ANYONE WISHING * 
= TO DO SO, BUT THE AMERICAN PETROLEUM INSTITUTE, = 
= THE AMERICAN SOCIETY FOR TESTING AND MATERIALS, = 


ks AND THE INSTITUTE OF PETROLEUM AND THEIR " 
= RESPECTIVE MEMBERS AND THE U.S. NATIONAL BUREAU * 
= OF STANDARDS, SHALL NOT BE HELD RESPONSIBLE OR 
* LIABLE IN ANY WAY FROM LOSS OR DAMAGE, INCLUDING, y 
BUT NOT LIMITED TO, CONSEQUENTIAL DAMAGE, = 
# RESULTING FROM SUCH USAGE OR FOR VIOLATION OF x 
‘ ANY FEDERAL, STATE, OR MUNICIPAL LAWS, REGULATIONS 7 
* OR PRACTICES OF THE UNITED STATES OR OF ANY * 
* FOREIGN COUNTRY. * 


Be ae eae ae ae ae ae oie ae OK ake ae eae ete le ake ale oie ale eae le ok ae ale ae ole oie oe oie OR ae ae Be ae ie Sie eae ie ake fe ae oe ale ok ate aie ae aie ate ae oe aie ale oe ae 


THE THERMAL EXPANSION PROPERTIES (VOLUME CORRECTION FACTORS, 
VGCFS) FOR PRODUCTS (EXCLUDING LUBE STOCKS) AND CRUDES 

ARE CORRELATED IN TWO SEPARATE, GENERALIZED TABLES 

AS A FUNCTION OF TEMPERATURE AND DENSITY. THE 

PREDICTED PRECISION AT 95 PERCENT CONFIDENCE IS: 


VCF PRECISION AT 95 PERCENT CONFIDENCE, PERCENT 


TEMPERATURE 40C 65C 90C 120C 
CRUDES, PRODUCTS 0.05 0.15 0.25 0.35 


IF THIS PRECISION IS UNACCEPTABLE, IT IS RECOMMENDED 
THAT THE ACTUAL THERMAL EXPANSION PROPERTIES OF THE 
SUBSTANCE BE MEASURED AND THE VCF BE DETERMINED 

USING TABLE 54C WITH EITHER K OR ALPHA VALUES DERIVED 
FROM THE MEASURED DATA. THE INSTRUCTIONS FOR THIS 
PROCEDURE ARE GIVEN IN TABLE 54C. 


THIS SUBROUTINE IS DESIGNED TO ACCEPT AS 

INPUT DENSITY VALUE AT 15C(DEN15) AND OBSERVED 
TEMPERATURE IN DEGREES CELSIUS (DEGC) AND 
PRODUCE THE VOLUME CORRECTION FACTOR(VCF)FOR 
API TABLE 54B, GENERALIZED PRODUCTS 

VOLUME GORRECTION TO 15 C. 


THIS SUBROUTINE CALLS THE FOLLOWING MODULES 
ALPHAB (CALLS SDIVB) 
SDIVB 
VCF54B(CALLS MPYB) 


DEN15 SHOULD BE PASSED ROUNDED TO 0.5 KG/CU M. 
THE SUBROUTINE WILL HOWEVER ROUND THE VALUE AND 
RETURN THE CORRECTED VALUE. 


DEGC SHOULD BE PASSED ROUNDED TO 0.05 C. 
THE SUBROUTINE WILL ROUND THE VALUE AND 
RETURN THE CORRECTED VALUE. 


VCFC IS THE RETURNED VOLUME CORRECTION FACTOR 
CORRECT TO FIVE(5) SIGNIFICANT FIGURES. 


DNDNDDDDDNDDODDDADDDNDNDNDDDDANDADAANDNDANNDANDAAGAAANDADANAAANDANAAAAIANNGDANDNAAAO 
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54B00210 
54B00220 
54B00230 
54B00240 
54B00250 
54B00260 
54B00270 
54B00280 
54B00290 
54B00300 
$4B00310 
54B00320 
54B00330 
54B00340 
54B00350 
54B00360 
54B00370 
54B00380 
54B00390 
54B00400 
54B00410 
54B00420 
54B00430 
54B00440 
54B00450 
54B00460 
54B00470 
54B00480 
54B00490 
54B00500 
54B00510 
54B00520 
54B00530 
54B00540 
54B00550 
54B00560 
54B00570 
54B00580 
54B00590 
54B00600 
54B00610 
54B00620 
54B00630 
54B00640 
54B00650 
54B00660 
54B00670 
54B00680 
54B00690 
54B00700 
§4B00710 
54B00720 
54B00730 
54B00740 
54B00750 
54B00760 
54B00770 
54B00780 
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VCFP 


NOONN9NAGANMAVNDAAGMA40 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


aqa0na 


DATA 


aag0d 


Section 1—VoLuME CorRECTION Factors 


IS THE RETURNED VOLUME CORRECTION FACTOR 


CORRECT TO FOUR(4) DECIMAL DIGITS. 


IFLAG IS THE ROUNDED STATUS CODE WHICH SHOULD 
BE CHECKED BY THE USER IN THE CALLING PROGRAM 
=0 NO ERROR 
=1 INPUT DATA WITHIN EXTRAPOLATION RANGES AS 


GIVEN IN API 2540, TABLE 54, 11.1.54 


=-1 INPUT DATA OUTSIDE SPECIFIED RANGE OF 


APPLICATION AS GIVEN IN API 2540, 
TABLE 54,11.1.54 


NBP1 ,NBP2 ,NBP3 ,NBP4/7705, 7875, 8390,10750/ 
IBP1 , IBP2/7790, 8245/ 

IBP3/10750/ 

ITMP1 , ITMP2 , ITMP3/9500, 12500, 15000/ 
IBAS/1500/ 

IEP1 , IEP2,IEP3/6000 ,9000,12000/ 
IBT1/-1800/ 

IFDEN/6530/ 


COEFFICIENTS FOR DIESELS, HEATING OILS AND FUEL OILS 


KOF ,K1F/1869696 , 4862/ 


COEFFICIENTS FOR JET FUELS, KEROSENES, AND SOLVENTS 


DATA KOJ,K1J/5945418,0/ 


aaa 


COEFFICIENTS FOR TRANSITION BETWEEN JETS AND GASOLINES 


DATA KOT ,K1T/26803206, -336312/ 


CG 
CG COEFFICIENTS FOR GASOLINES AND NAPHTHENES 
Cc 


DATA KOG,K1G/3464228 , 4388/ 


VCFP=-1.00 
VCFC=-1.00 
IFLAG=- 


aQqag 


ROUND INPUT PARAMETERS 


IDEN=(DEN15*100.+25.0)/50.0 


IDEN= 


IDEN*5 


DEN15=FLOAT( IDEN)/10.0 
ITEMP=DEGC*1000. 

IFC ITEMP.GT.0)ITEMP=ITEMP+25 
IF(ITEMP.LT.0)ITEMP=ITEMP- 25 
ITEMP=ITEMP/50*5 

DEGC=FLOAT( ITEMP)/100.0 
IDT=ITEMP - IBAS 


aang 


CHECK DENSITY RANGES 


IF( IDEN-IFDEN)10,20, 20 
10 CONTINUE 
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54B00790 
54B00800 
54B00810 
54B00820 
54B00830 
54B00840 
54B00850 
54B00860 
54B00870 
54B00880 
54B00890 
54B00900 
54B00910 
54B00920 
54B00930 
54B00940 
54B00950 
54B00960 
54B00970 
54B00980 
54B00990 
54B01000 
54B01010 
54B01020 
54B01030 
54B01040 
54B01050 
54B01060 
54B01070 
54B01080 
54B01090 
54B01100 
54B01110 
54B01120 
54B01130 
54B01140 
54B01150 
54B01160 
54B01170 
54B01180 
54B01190 
54B01200 
54B01210 
54B01220 
54B01230 
54B01240 
54B01250 
54B01260 
54B01270 
54B01280 
54B01290 
54B01300 
54B01310 
54B01320 
54B01330 
54B01340 
54B01350 
54B01360 
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RETURN §4B01370 
Cc 54B01380 
Cc DEFINE CURVE COEFFICIENTS 54B01390 
Cc 54B01400 
20 IF(IDEN-NBP1)30,40,40 54B01410 
30 KO=KOG 54B01420 
K1=K1G 54B01430 
GO TO 80 54B01440 
40 IFC IDEN-NBP2)50,50,60 54801450 
50 KO=KOT 54B01460 
K1i=K1T 54B01470 
GO TO 80 54B01480 
60 IF(IDEN-NBP3)70,75,75 54B01490 
70 KO=KOJ 54B01500 
K1=K1J §4B01510 
GO TO 80 5§4B01520 
75 IF(IDEN-NBP4)78, 78,10 54B01530 
78 KO=KOF 54B01540 
K1=K1F 54B01550 
80 CONTINUE 54B01560 
Cc 54B01570 
CG CHECK VALID TEMPERATURE RANGES 54B01580 
Cc 54B01590 
IF(ITEMP-IBT1)90,100,100 54B01600 
90 CONTINUE 54B01610 
RETURN 54801620 
100 IF (IDEN-IBP1)110,110,120 54B01630 
110 IF( ITEMP-ITMP1 )150,150,90 54B01640 
120 IF(IDEN-IBP2)130,130,140 54B01650 
130 IF(ITEMP-ITMP2)150,150,90 54B01660 
140 IF ( IDEN-IBP3)150,150,90 54B01670 
150 IF (ITEMP-ITMP3)152,152,90 54B01680 
152 CONTINUE 54B01690 
IDEN=IDEN*10 54B01700 
Cc 54B01710 
Cc CALCULATE ALPHA 54B01720 
Cc 5§4B01730 
IF(KO.NE.KOT)GO TO 155 54B01740 
Cc 54B01750 
Cc CALCULATE ALPHA IN TRANSITION ZONE 54B01760 
Cc 54B01770 
CALL SDIVB(KO, IDEN, IRES) 54B01780 
IRES=IRES*10 54B01790 
CALL SDIVB(IRES, IDEN, ITALF1) 54B01800 
IALF1=(IALF1+5)/10 54B01810 
TALF=(IALF1+K1+5) /10 54B01820 
GO TO 158 54B01830 
155 CALL ALPHAB( IDEN, KO,K1,IALF) 54B01840 
Cc 54B01850 
Cc CALCULATE VCF 54B01860 
Cc 54B01870 
158 CONTINUE 54B01880 
IDEN=IDEN/ 10 54B01890 
CALL VCF54B(IALF,IDT, IVCF) 54B01900 
IFLAG=0 54B01910 
Cc 54B01920 
Cc CHECK TO DETERMINE IF IN EXTRAPOLATED REGION 54B01930 
Cc 54B01940 
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IF ( IDEN-IBP1)170,170,160 
160 IF(ITEMP-IEP1)200, 200,165 
165 IFLAG=1 

GO TO 200 
170 IFC IDEN-IBP2)190,180,180 
180 IFC ITEMP-IEP2)200,200,165 
190 IF(ITEMP-IEP3)200,200,165 
200 CONTINUE 


goaqgqgaqgg 


CALCULATE PRINT AND CALCULATION VALUES OF VCF 
PRINT VALUE(PVCF) ROUNDED TO 4 DECIMAL DIGITS 
CALCULATION VALUE(CVCF) ROUNDED TO 5 SIGNIFICANT DIGITS 


JVOCF=(IVCF/1000+5)/10 

PVCF=JVCF 

PVCF=PVCF/10000. 

IF ( IVCF-100000000)210, 220, 220 
210 CONTINUE 


Cc VCF LESS THAN ONE, FIVE DECIMALS RETURNED 


JVCF=(IVCF/100+5)/10 
CVCF=JVCF 
CVCF=CVCF/100000. 
GO TO 250 
220 CONTINUE 
CVCF=PVCF 
250 CONTINUE 
VCFP=PVCF 
VGFC=CVCF 
RETURN 


END 


SUBROUTINE SDIVB(INUM, IDENOM, IRES) 


aaqggqgqqggaqagng 


THIS MODULE IS DESIGNED TO PRODUCE ADDITIONAL 

ACCURACY FROM AN INTEGER DIVIDE WHERE THE NUMERATOR 

IS 10000 GREATER THAN THE DENOMINATOR. THE SUBROUTINE 
ASSUMES PROPER SCALING OF BOTH THE INPUT NUMERATOR 

AND DENOMINATOR AND WILL RETURN THE RESULTS MULTIPLIED 
BY 10000. 


IRES1=INUM/ IDENOM 

IRES2=( INUM- IRES1 * IDENOM) *10000/ IDENOM 
IRES=IRES1 *10000+IRES2 

RETURN 


END 


SUBROUTINE ALPHAB( IRHO,KO,K1, IALF) 


agoaaD 


THIS MODULE IS DESIGNED TO CALCULATE ALPHA FOR 
USE IN DETERMINATION OF VOLUME CORRECTION 
FACTOR. 


INPUT VARIABLES 
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54B01950 
54B01960 
54B01970 
54B01980 
54B01990 
54B02000 
54B02010 
54B02020 
54B02030 
54B02040 
54B02050 
54B02060 
54B02070 
54B02080 
54B02090 
54B02100 
54B02110 
54B02120 
54B02130 
54B02140 


54B02150 
54B02160 
54B02170 
54B02180 
54B02190 
54B02200 
54B02210 
54B02220 
54B02230 
54B02240 
54B02250 
54B02260 


54B02270 
54B02280 
54B02290 
54B02300 
54B02310 
54B02320 
54B02330 
54B02340 
54B02350 
54B02360 
54B02370 
54B02380 
54B02390 
54B02400 


54B02410 
54B02420 
54B02430 
54B02440 
54B02450 
54B02460 
54B02470 
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Cc IRHO=DENSITY*100 (KILOGRAMS/CUBIC METRE) 54B02480 
C KO,K1= COEFFICIENTS OF DESIRED CURVE * 10000 54B02490 
Cc 54B02500 
Cc ALGORITHM - 54B02510 
G ALPHA=KO / RHO* *2+K1 /RHO 54B02520 
Cc 54B02530 
CG CALCULATE K1/RHO 54B02540 
Cc 54B02550 
INUM=K1*10000 54B02560 
CALL SDIVBCINUM, IRHO, IALF1) 54B02570 
Cc 54B02580 
Cc CALCULATE K0/RHO**2 54B02590 
Cc 54B02600 
INUM=K0*100 54B02610 
CALL SDIVB(INUM, IRHO, IALFS) 54B02620 
CALL SDIVB(IALFS, IRHO, IALF2) 5§4B02630 
TALF=(IALF1+IALF2+500 )/1000 54B02640 
RETURN 54B02650 
END 54B02660 
SUBROUTINE VCF54B(IALF,IDT,IVCF) 54B02670 
Cc 54B02680 
Cc THIS MODULE IS DESIGNED TO CALCULATE VOLUME 5§4B02690 
Cc CORRECTION FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE §4B02700 
Cc AS INTEGERS, THE SUBROUTINE RETURNS WITH A 8 §4B02710 
C OR 9 DIGIT VALUE DEPENDENT UPON WHETHER IDT 54B02720 
Cc IS POSITIVE OR NEGATIVE. 54B02730 
Cc 54B02740 
CG ALGORITHM - 54B02750 
CG VCF=EXP(-ALPHA*DT(1.0+0.8*ALPHA*DT ) ) 54B02760 
Cc §4B02770 
Cc CALCULATE ALPHA*DT §4B02780 
Cc 54B02790 
ITERM1=IALF*IDT 54B02800 
ITERM1=ITERM1 /10 54B02810 
Cc 54B02820 
G CALCULATE 0.8 *ALPHA *DT 54B02830 
Cc 54B02840 
ITERM2=ITERM1 /5*4 54B02850 
Cc 54B02860 
Cc CALCULATE EXPONENT -ALPHA*DT(1.0+0.8*ALPHA*DT ) 54B02870 
Cc 54B02880 
CALL MPYB(ITERM1 , ITERM2 , ITERMS ) 54B02890 
IX=- (ITERM1+ITERMS ) §4B02900 
Cc 54B02910 
Cc CALCULATE EXPONENTIAL(FIRST 7 TERMS OF POWER SERIES) 54B02920 
Cc 54B02930 
ISUM1=100000000+1X 54B02940 
CALL MPYB(IX,1IX,ISUM2) 54B02950 
ISUM2=ISUM2/2 54B02960 
CALL MPYBC( IX, ISUM2 , ISUM3 ) 5§4B02970 
ISUM3=ISUM3/ 3 54802980 
CALL MPYB( IX, ISUM3 , ISUM4 ) 5§4B02990 
ISUM4=ISUM4 / 4 54B03000 
CALL MPYB( IX, ISUM4 , ISUMS5 ) 54B03010 
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ISUM5=ISUM5 /5 54B03020 

CALL MPYB( IX, ISUM5 , ISUM6 ) 54B03030 
ISUM6=ISUM6E /6 54B03040 
IVCF=ISUMi +ISUM2+ISUM3+ISUM4+ISUM5+ISUM6 54B03050 
RETURN 54B03060 

END 54B03070 
SUBROUTINE MPYB(IX,1Y,1IZ) 54B03080 

Cc 54B03090 
Cc THIS MODULE PERFORMS INTEGER MULTIPLICATION. THE TOTAL 54B03100 
Cc NUMBER OF DIGITS IN IX AND IY MUST NOT EXCEED 17. OTHER 54B03110 
Cc WISE, OVERFLOW WILL OCCUR. 54B03120 
Cc 54B03130 
IU1 = IX / 10000 54B03140 

K1 = 10000 * IU1 §4B03150 

IV1 = IX - Ki 54B03160 

IU2 = IY / 10000 54B03170 

K2 = 10000 * IV2 54B03180 

Iv2 = IY - K2 54B03190 

K3 = [U1 * IV2 + TU2 * IV1 + IV1 * IV2 / 10000 54B03200 

IZ = (K3 + 5000) / 10000 + IU1 * IU2 54B03210 
RETURN 54B03220 

END 54B03230 

Errata 
Please make the following updates to this subroutine listing. For an explanation 
of the updates see 11.1.6. 

current: DATA IBP1,1BP2/7790,8245/ 54B00930 
updated: DATA IBP1?,1BP2/7785,8240/ 54B00930 


11.1.54.6 IMPLEMENTATION PROCEDURE FOR SUBROUTINE TAB54B 


In today's world there is a rapidly developing trend to use computers in 


custody transfer measurements, accounting work, process control systems, and a 


variety of other uses where tables must be incorporated into computer codes. 


Yet many of the printed tables are almost impossible to code due to the fact 


that someone has slightly modified selected values to differ from those 


obtained using the mathematical expression that supposedly generated the 


tables. 
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tion tables to the codes. This makes the codes large and cumbersome to modify, 
and restricts their use to larger computer systems. Also with the development 
of better measuring devices it is often possible to gain more digits of preci- 
sion in the table parameters, necessitating finer grid of the tabular values, 
resulting in larger volumes of printed tables to be handled. 

In addition, as the on-line use of computers for metering purposes 
increases, the direct use of printed tables will decrease; therefore, the new 
Standard is an explicit implementation procedure rather than a set of equa- 
tions or a set of tables. It must be remembered that the standardization of 
the implementation procedure implies standardization of the set of mathe- 


matical expressions used within the code. Absolute adherence to the procedure 


will help to insure that all computers and computer codes of the future, meet- 
ing the specifications and restrictions, will be able to produce the same 
results. It is believed that this procedure will allow for the maximum 


machine and code independence. The procedure was implemented in computer 
subroutines issued by AP! in 1980 using ANSI/ASA FORTRAN. The subroutines 
maximized precision by the use of 32-bit integer arithmetic. 

The procedure as described in the following text can, by careful and 
deliberate application of numerical analysis, be used with the majority of 
languages and word sizes in present or anticipated use. To use the standard 
procedure means to maintain absolute and unwavering adherence to the number of 
digits specified at each step and to the calculation procedure as outlined. 

In the procedure, the nomenclature used is that of ASTM E380-76, unless 
an explicit procedure is given below, in which case the procedure given below 
overrides that given by ASTM E380-76. 

In the procedure the nomenclature (XXX.XX) means five (5) mathematical ly 
significant digits. 

The term rounding as used in the procedure means: Consider only the 
first digit to the right of the desired position and 

a. If that digit is greater than 4, increment the desired position by 

one and drop the remaining digits to the right of the desired posi- 
tion. 

b. If that digit is tess than 5, simply drop the remaining digits to 

the right of the desired position. 


All constants are used to exactly the number of digits printed. 
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Calculation Procedure 


STEP 1: Round input variables of density and observed temperature 
as Round density to the nearest 
0.5 Kg/m? and carry as 5 digit result 
j-e. density (DEN1I35) = XXXX.X 
b. Round observed temperature to the nearest 
0.05 °C and carry as 5 digit result 
i.e. observed temperature (DEGC) = XXX.XX 
STEP 2: Choose the appropriate values of Kg and Kj as described in API Stan- 
dard 2540, TABLE 54, 11.1.54 


Kg is an 7 digit constant 


i.@e Kg = XXXeXXXX 
Ky is a4 digit constant 
i.e. Ky, = «XXXX 


STEP 3: Calculation of alpha (coefficient of thermal expansion) 
1. If input density < 770.5 Kg/m? 
input density > 787.5 Kg/m? 


Ky  K 
define g= 2+ —L 
2 p 
p 
Ko 
a» Evaluate = 
p 
K 
a(1) Compute 2 = .XXXXXXXX 
e 


K,/p 
a(2) Compute _9 = .OOOXXXXXXX 


Sy 
be Evaluate 2 
ra) 


K 
b(1) _L = .000XXXXXXxX 
is) 


c. Sum results of a(2) and b(1) and round to nearest 0.0000001 
i-@. a = eOOOXXXX 
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770.5 Kg/m 
787.5 Kg/m 


li. If input density > 
< 


input density 
define a= A + B/p2 where 


A and B are chosen to be the coefficients of a line joining the jet 
fuel line at 770.5 Kg/m> to the gasoline line at 787.5 Kg/m>. 

A eOOKXXXXX 

B = XXXXoXXXX 


a) Evaluate 8 
02 


a(1) compute 8B = .XXXXXXXX 
Q 


a(2) compute B/e = .OOXXXXXXXX rounded to nearest .0000000001 
p 
b) Sum results of a(2) and A and round to nearest .0000001 
i.e. @ = «QOOXXXX 


STEP 4: Calculate At 
define At = DEGC - Tpase 
Note: Tgase carried to 4 digits XX.XX (15.00) 
Carry At = XXXeXX 


STEP 5: Calculation of VCF 
define VCF = EXPl-aATt(1.0 + 0.8 qgAT)] 
EXP[-aAt - 0.8 a2 At2] 


ae Calcutation of exponent 
acl) aATtT = XXXXXXXX 
a(2)  .8aAdt = .XXXXXXXX 
a(3) «8 a2 At2 = .OXXXXXXX 
a(4) -aAt - 0.8 a2 At2 = O.XXXXXXXX with any trailing 
digits dropped 
b. Calculation of exponential 
VCF = EXP[-aAt - 0.8 a2 At2] = X.XXXXXX 
using at least the first 7 terms of the power series expansion 


of eX 
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Computational _ 


1.XXXX rounded to nearest 0.0001 if VCF > 1 
value of VCF 


O.XXXXX rounded to nearest 0.00001 if VCF < | 


Table value 
of VCF 


XeXXXX rounded VCF to nearest 0.0001 


The 1980 integer FORTRAN code issued by API contained both an integer 
division and an integer multiplication algorithm. A description of each is 
contained in the following: 


INTEGER MULTIPLICATION PROCEDURE 
(FOR 32 BIT ARITHMETIC) 


DATA DEFINITION 
X, Y are integer numbers that are equal to or less than 2 x 109 (slightly 


less than 231), A larger value may cause overflow. In addition, the total 


number of digits in X and Y must not exceed 17, otherwise overflow will occur. 
Z is the product XY scaled by 1078, i.e. Z = xy/108. 
Note: If it is desirable to obtain maximum precision, X and Y may be 


scaled up prior to use of the procedure. Typically, at least 15 digits are 
needed to obtain 6 digit precision, 16 for 7 and 17 for 8. 

The largest values of X and Y that may be used are 2 000 000 000 and 
99 999 999, 


CALCULATION 


X/10000 = Uy 
10000 Uy = Ky 
X - Ky = Vq 
Y/10000 = Us 
10000 Up = Kp 
TK = Ne 


(UqV2) + (U2Vy) + (V4¥2/10000) = Kz 
(Kz + 5000)/10000 + (UzUp) = Z 


Note: Z has been scaled by 1078 and may have to be rescaled before use. 


TOTAL DIGITS IN X AND Y 12 13 14 #15 16 17 
DIGITS IN PRODUCT, Z 3-4 4-5 5-6 6-7 7-8 8-9 
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INTEGER DIVISION PROCEDURE 
(FOR 32 BIT ARITHMETIC) 


DATA DEFINITION 
X, Y are integer numbers such that X is equal to or less than 232 - 1 


and Y is of order of magnitude 104 less than X. 


R is the quotient of % scaled by 104, i.e. R= < * 104, 


Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically the more digits that are 
carried in both X and Y, the more accurate digits on output. 


CALCULATION 


X/¥ = Uy 
U1Y = KI 
X=~K, = Vy 
Vi/Y == U2 


U, * 10000 + Up = R 


Note: R has been scaled by 104 and may have to be rescaled before use. 


Examples for Checkout 


The following examples are designed to aid in checkout procedures for 
both the existing API subroutine and any subroutines which are developed using 
the implementation procedure outlined above. The lines of the examples are 


numbered to correspond to the lines within the calculation procedure. 


EXAMPLE 1: Assume a fuel oil with an input density corrected to 15 °C of 
903.5 Kg/m> and an observed temperature of 30.52 °C. Calculate 
the VCF required to correct the volume to 15 °C, correct to 4 


decimal digits. 


STEP 1: ae rounded DENI5 903.5 
be. rounded DEGC = 30.50 
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STEP 2: Kg = 186.9696 (as of May 1, 1980) 
Ky 0.4862 (as of May 1, 1980) 


STEP 3: !.a. Evaluate 


l* 
NIO 


K 
a(t) 2 = 0.20693923 
ie) 


Ky/e 
a(2) Y= 0.0002290417 
p 


K 
1.b. Evaluate acl 


K 
b(1) _! = 0.0005381294 


p 


1 .Ce a@ = 0.0007672 
STEP 4: At = 15.50 


STEP 5: Calculation of VCF 

ae Calculation of exponent 
a(t) 0.01189160 
a(2) 0.00951328 
a(3) 0.00011312 
a4) -0.01200472 

b. Calculation of exponential 
VCF = 0.988067 


VCF correct to 4 decimal digits = 0.9881 
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EXAMPLE 2: Assume a jet fuel with an input density corrected to 15 °C of 
819.0 Kg/m> and an observed temperature of 26.75 °C. Calculate 
the VCF required to correct the volume to 15 °C, correct to 4 


decimal digits. 


STEP 1: a. rounded DENI5 = 819.0 
be rounded DEGC = 26./5 

STEP 2: Kg = 594.5418 (as of May 1, 1980) 
K; = 0.0 (as of May 1, 1980) 


K 
STEP 3: t.a. Evaluate + 
p 


K 
a(1) _2 = 0.72593626 
é) 


K,/p 
a(z2) 2. = 0.00088636 
p 


K 
leb. Evaluate 1 


| Ce a = 0.0008864 
STEP 4: At = 11.75 


STEP 5: Calculation of VCF 

ae Calculation of exponent 
a(1) 0.01041520 
a(2) 0.00833216 
a(3) 0.00008678 
a(4) -0.01050198 

b. Calculation of exponential 
VCF = 0.989552 


VCF correct to 4 decimal digits = 0.9896 
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EXAMPLE 3: Assume a product with an input density corrected to 15 °C of 
777.5 Kg/m> and an observed temperature of 8.98 °C. Calculate 
the VCF required to correct the volume to 15 °C, correct to 4 


decimal digits. 


STEP 1: a. rounded DENIS = 777.5 
be rounded DEGC 9.00 


STEP 2: Kg, K1 not applicable; density found in transition zone. 


STEP 3: dleae A = -0.00336310 (as of May 1, 1980) 
B = 2680.3206 (as of May 1, 1980)- 
a(}) = 3.447357 


2 
0 


a(2) B/e = 0.00443390 
Q 


De a = 0.0010708 


STEP 4: At = -6.00 


STEP 5: Calculation of VCF 

ae Calculation of exponent 
a(1) -0.00642480 ‘ 
a(2) -0.00513984 
a(3) 0.00003302 
a(4) 0.00639178 

b. Calculation of exponential 
VCF = 1.006412 


VCF correct to 4 decimal digits = 1.0064 


EXAMPLE 4: Assume a gasoline with an input density corrected to 15 °C of 
749.1 Kg/m> and an observed temperature of 32.0 °C. Calculate 
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the VCF required to correct the volume to 15 °C, correct to 5 


significant figures. 


STEP 1: a) rounded DENI5 = 749.0 
b) rounded DEGC = 32.00 
STEP 2: Kg = 346.4228 (as of May 1, 1980) 
Ky, = 0.4388 (as of May 1, 1980) 
K 
STEP 3: |.a. Evaluate ? 
ie) 


K 
a(1) 9 = 146251375 
fe) 


K_/ 
40) 0s 0.00061750 
i?) 


|.b. Evaluate Ky 


Pp 


K 
“1 = 0.00058584 
p 


b(1) 


}.ce a = 0.0012033 


STEP 4: At = 17.00 


STEP 5: Calculation of VCF 

a. Calculate exponent 
a(1) 0.02045610 
a(2) 0.01636488 
a(3) 0.00033476 
a(4) ~-0.02079086 

be. Calculation of exponential 
VCF = 0.979423 


VCF correct to 5 significant figures = 0.97942 
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11.1.54.7 TABLE 54C—VOLUME CORRECTION 
FACTORS FOR INDIVIDUAL AND 
SPECIAL APPLICATIONS, VOLUME 
CORRECTION TO 15°C AGAINST 
THERMAL EXPANSION COEFFICIENTS 
AT 18°C 


TABLE 54C gives volume correction factors to con- 
vert petroleum liquid volumes to the corresponding vol- 
ume at 15°C. The table presents tabular entries of 
volume correction factor against thermal expansion co- 
efficient and temperature. The values were computed 
from the basic equation used to represent volume cor- 
rection factors. 


VCF = EXP [-a7Ad(1 + 0.807A0] (1) 
a; = a at the base temperature 
At t-T 


t = any temperature 
T = base temperature. 

In this form the equation is independent of the group 
or substance. It can be used with any valid method 
of obtaining the thermal expansion coefficient for a 
given fluid as long as a statistically significant num- 
ber of points are obtained. A minimum of ten such 
points is recommended. The appendix (11.1.54.7.1) to 
TABLE S4C presents values of the thermal expansion 
coefficient along with the base density for each of the 
NBS samples. In addition, values of the constants Ky 
and K, are given for each major group. These constants 
relate the thermal expansion coefficient to base density 
by 

_ Ko + Kipr 


ap = 2 
qe pr (2) 


This table and its primary subroutine allow the use of 
measured data for previously unstudied fluids to sup- 
plement those data included in the initial data base. 
High precision density data obtained from the labora- 
tory for a fluid of interest may be reduced by Equation 
1 to obtain py; and a7. TABLE 54C may then be entered 
with the a; so determined. 
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TABLE 54C, when used with a minimum of ten data 
points, allows one to extract the highest degree of ac- 
curacy from the base data. It is suggested that TABLE 
54C bé used when: 


1. TABLES 54A and 54B do not adequately represent 
the thermal expansion properties of the fluids of in- 
terest; and 

2. Precise thermal expansion coefficients may be ob- 
tained directly or indirectly by experiment (As an exam- 
ple, high precision density data may be used to compute 
the coefficients); and 

3. Buyers and sellers agree that, for their use, a greater 
degree of equity can be obtained. 


The temperature ranges of this table are: 


a * 10° °C 
486 to 918 —18 to 150 
918 to 954 —-18 to 125 
954 to 1674 -18 to 95 


The volume correction factors given in this table are 
based on data from the U.S. National Bureau of Stan- 
dards and from other published data. The appendix to 
this table presents values of the thermal expansion coef- 
ficients at 15°C for each of the samples included in the 
NBS data set. Portions of the temperature range repre- 
sent areas beyond these data. Thus, mathematical tech- 
niques were employed to extrapolate beyond the tem- 
perature range of the given data to determine the vol- 
ume correction factors for these areas. These factors are 
denoted by an asterisk (*). Extension of this table be- 
yond the ranges shown is not intended. 


Increments used in this table for determining the 
volume correction factors are 0.25°C and 4 units for a. 
Interpolation between either temperature or thermal 
expansion coefficient is not intended since there is no 
practical method of interpolation that will produce the 
accuracy obtainable from the Standard. 


This table must be entered with a known thermal 
expansion coefficient at 15°C and with an observed 
temperature. 
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11.1.54.8 PROGRAM DOCUMENTATION FOR SUBROUTINE TAB54C— 
VOLUME CORRECTION FACTORS FOR INDIVIDUAL AND 
SPECIAL APPLICATIONS, CORRECTION OF VOLUME TO 15°C 
AGAINST COEFFICIENTS OF THERMAL EXPANSION AT 15°C 


ABSTRACT 


Subroutine Title: TAB54C - TABLE 54C, VCF for Individual and 
Special Applications, Volume Correction to 15 °C 


Description: This subroutine is designed to calculate the 
volume correction factor required to convert 
a volume at an observed temperature to The cor- 
responding volume at 15 °C assuming the coeffi- 


cient of thermal expansion is known. 


Program Responsibility: American Petroleum Institute 
Measurement Coordination 
2101 L Street, N.W. 
Washington, D.C. 20057 


Date Issued: August 1980 
Language: FORTRAN, ANSI/ASA Standard 
Reference: AP! Standard 2540, TABLE 54, 11.1.54 


THIS SUBROUTINE WAS DEVELOPED USING THE MATHEMATICAL ALGORITHMS 
AND SPECIFICATIONS DESCRIBED IN THE DOCUMENT PROCEDURE 11.1.54.9. 
ANY MODIFICATIONS TO THIS SUBROUTINE MUST RIGIDLY ADHERE 
TO THE SAME ALGORITHMS AND SPECIFICATIONS. 


11.1.54.8.1 Introduction 


TAB54C is a computer subroutine designed to calculate the volume cor- 


rection factor (VCF) necessary to convert a volume of a liquid hydrocarbon 
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with a known coefficient of thermal! expansion and at a specified temperature 
in degrees Celcius (°C) to the equivalent volume at 15 °C. The subroutine 
accepts as input the desired coefficient of thermal expansion rounded to the 
nearest 0.000001 and the observed temperature rounded to the nearest 0.05 °C. 
!f either input value has not been properly rounded, the subroutine will round 
the values and return the corrected values. The subroutine returns one value 
of VCF with 5 significant figures of accuracy for computation purposes and 
another VCF value rounded to four decimal places for printing purposes. The 

_ subroutine also outputs a status code for user convenience. The code is set 
to -1 if an error condition occurs and to +1 if the input values are outside 
the limits of the correlation. A status code of zero is returned if the input 
values are within the limits of the correlation. The limits of the correla- 
tion including the extrapolated region are depicted in Figure X-18. The calling 
program must check the flag and provide the user with appropriate warning mes- 


sages or program termination. 


11.1.54.8.2 Subroutine Specifications 


The range of app!lication: 


Alpha * 106 Temperature, °C 
486.0 to 918.0 -18.0 to 150.0 
919.0 to 954.0 -18.0 to 125.0 
955.0 to 1674.0 -18.0 to 95.0 
Referenced modules: VCF54C, MPYC 


FORTRAN functions: FLOAT 


Average execution time: 2290 VCF entries/CPU second 
IBM 370/168 


The subroutines are written in ANS!/ASA FORTRAN using integer arithmetic. The 


size and storage requirements are: 


1. Compilable source statements 93 
2. Decimal storage bytes 1052 
3. Words 513 
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11.1.54.8.3 Calling Sequence 


CALL TABS4C (ALF15, DEGC, VCFC, VCFP, IFLAG) 


{NPUT DESCRIPTION 


ALF ID / - Coefficient of thermal expansion 
(ALF15 returned will be rounded to nearest 0.0000010) 


DEGC - Observed temperature, °C 
(DEGC returned will be rounded to nearest 0.05 °C) 


OUTPUT DESCRIPTION 


VCFC - Output VCF rounded to 5 significant figures for computational 
purposes 
jee. VCFC = 1.XXXX 
or VCFC = O.XXXXX 
VCFP - Output VCF rounded to 4 decimal places for printing purposes 


jee. VCFP = 1.XXXX 
er VCFP = 0.XXXX 


\FLAG - Status Code 


QO: Indicates input variables are within the range of application. 


1: Input data outside limits of correlation as given in 11.1.54. 


-1: Indicates input ALFI5 or input DEGC outside range of application 
as given in 11.1.54; VCFC and VCFP set to -1.0000. 


11.1.54.8.4 Method of Calculation 


The subroutine evaluates the equation 


VCF = EXPl= 045 AtT(1.0 + 0.8 a5 A41)] 
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where At = DEGC - 15.00 
015 = coefficient of thermal expansion 


A full explanation of the equation may be found in API Standard 2540, 
TABLE 54, 11.1.54. 


11.1.54.8.5 Examples 


These examples are tutorial in nature and are not intended to be sufficient 
for subroutine checkout. The examples given in procedure 11.1.54.9 are to be 


used for the computer checkout. 


Example 1 
ALFI5 = .0007924 
DEGC = 52.50 
CALL TAB54C (ALFI5, DEGC, VCFC, VCFP, IFLAG) 
After the call: ALF15 = .000792 
DEGC = 32.50 
VCFC = .98608 
VCFP = .9861 
IFLAG = QO 
Example 2 
ALFI5 = .0005940 


DEGC = 124.00 
CALL TABS4C (ALF15, DEGC, VCFC, VCFP, IFLAG) 


After the call: ALFI5 = .000594 
DEGC = 124.00 
VCFC = .93417 
VCFP = .9342 
IFLAG = 1 
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Example 3 
ALF15 = .0011880 
DEGC = 200.00 
CALL TAB54C (ALFI5, DEGC, 
After the call: ALF15 = 
DEGC = 
VCFC = 
VCFP = 
IFLAG = 


CHaPTER 11—PuysicaL Properties DATA 


VCFC, VCFP, IFLAG) 
-0011880 
200.00 
- 1.0000 
- 1.0000 
-| 


11.1.54.8.6 FLOWCHART 


}NPUT: THERMAL EXPANSION 
COEFFICIENT OBSERVED TEMPERATURE 


ROUND INPUT DATA 
TO SPECIFICATION 


CHECK 
TO SEE IF 
DATA WITHIN 
BOUNDS OF 
TABLE 


SET VCF = -1.0000 
ERROR FLAG TERR = -1 
RETURN 


CALCULATE VCF 


CHECK 
TO SEE - 
IS DATA IN 
EXTRAPOLATED 
REGION? 


YES 


SET ERROR 
FLAG = 1 


SET ERROR 
FLAG = 0 
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11.1.54.8.7 Subroutine Listing 


TABS 4C This subroutine serves as the input/output routine to 
the subsequent modules necessary in the calculation of 
volume correction factor from the coefficient of thermal 


expansion at 15 °C and observed temperature. 


Referenced Modules 


MPYC This module performs integer multiplication with a maxi- 


mum of 17 digits. 


VCF54C This module is designed to calculate volume correction 
factor. 

SUBROUTINE TAB54C(ALF15,DEGC, VCFC,VCFP, IFLAG) 54000010 
§4000020 
(C)COPYRIGHT 1980 54000030 
AMERICAN PETROLEUM INSTITUTE 54600040 
ALL RIGHTS RESERVED 54000050 
54000060 
THIS SUBROUTINE IS A VOLUNTARY STANDARD AND WAS DEVELOPED 54600070 
UNDER THE AUSPICES OF THE JOINT API-ASTM COMMITTEE ON STATIC 54000080 
PETROLEUM MEASUREMENT IN PART FROM DATA GENERATED §4C00090 
BY A PROJECT FUNDED BY THE AMERICAN PETROLEUM 54000100 
INSTITUTE AT THE U.S. NATIONAL BUREAU OF STANDARDS, 54000110 
GAITHERSBURG, MARYLAND. 54000120 
54000130 
INQUIRIES CONCERNING ITS APPLICATION SHOULD 54€000140 
BE ADDRESSED TO: 54000150 
AMERICAN PETROLEUM INSTITUTE 54000160 
MEASUREMENT COORDINATION 54000170 
2101 L STREET, N.W. 54000180 
WASHINGTON, DC 20037 54000190 
54000200 
Se ME ON De ee oe ale ee ie ae ae ae eae ee Me Ree ee Oe eae afe ee ek ote ee oe ok ae ee fe ae ake ae oe eee ae oe ae ole fe ak ke oe ote ok ok ok ae 54000210 


54€00220 
54000230 
54000240 
54C€00250 
54000260 
54C000270 


* * 
bs THIS SUBROUTINE OR THE MATHEMATICAL RELATIONSHIPS * 
é REPRESENTED THEREBY MAY BE USED BY ANYONE WISHING bs 
. TO DO SO, BUT THE AMERICAN PETROLEUM INSTITUTE, * 
* THE AMERICAN SOCIETY FOR TESTING AND MATERIALS, ‘ 
: AND THE INSTITUTE OF PETROLEUM AND THEIR « 
* RESPECTIVE MEMBERS AND THE U.S. NATIONAL BUREAU * 54€C00280 
x OF STANDARDS, SHALL NOT BE HELD RESPONSIBLE OR * 54000290 
. LIABLE IN ANY WAY FROM LOSS OR DAMAGE, INCLUDING, = 54C00300 
* BUT NOT LIMITED TO, CONSEQUENTIAL DAMAGE , - 54€000310 
* RESULTING FROM SUCH USAGE OR FOR VIOLATION OF 3 54000320 
* ANY FEDERAL, STATE, OR MUNICIPAL LAWS, REGULATIONS bg 54000330 
= OR PRACTICES OF THE UNITED STATES OR OF ANY = 54000340 
is FOREIGN COUNTRY. = 54000350 
= * 54C00360 
. c 54C00370 


iotekeiekekeleleoketekekeheneolenererer ener enenenekeneoneonerenenekerenenenre) 


Be ae Ske ok a He Hee Ke oe ea eae te ae ae oie as ae oie ke oe ae eae ae oe se oe ae aie oe oe oft oe ake oe ake ok ee ae oe ak eo ae oe oR oe ae oe ee 
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C 54000380 
Cc THIS SUBROUTINE IS DESIGNED TO ACCEPT AS INPUT 54000390 
Cc A VALUE OF ALPHA (THERMAL EXPANSION COEFFICIENT) 54600400 
Cc AND OBSERVED TEMPERATURE IN DEGREES CELSIUS (DEGC) 54000410 
Cc AND PRODUCE THE VOLUME CORRECTION FACTOR FOR 54000420 
C API TABLE 54C, VCF FOR INDIVIDUAL AND SPECIAL APPLICATIONS 54000430 
Cc VOLUME CORRECTION FACTOR TO 15 C. 54000440 
Cc 54000450 
Cc THIS SUBROUTINE CALLS 54000460 
Cc VCF54C (CALLS MPYC) 54000470 
C §4000480 
Cc ALF15 SHOULD BE INPUT TO THE NEAREST 1.0 WHERE 54000490 
Cc ALF15 IS XXXX.X * 10**-6. THE SUBROUTINE WILL 54C00500 
Cc ROUND THE VALUE AND RETURN THE CORRECTED VALUE. 54000510 
C 54000520 
Cc DEGC SHOULD BE PASSED ROUNDED TO THE NEAREST 54000530 
Cc 0.05 DEGREE CELSIUS. THE SUBROUTINE WILL ROUND 54C00540 
Cc THE VALUE AND RETURN THE CORRECTED VALUE. 54000550 
Cc 54000560 
Cc VCFC IS THE RETURNED VOLUME CORRECTION FACTOR 54000570 
Cc CORRECT TO FIVE(5) SIGNIFICANT FIGURES. §4C000580 
Cc 54600590 
Cc VCFP IS THE RETURNED VOLUME CORRECTION FACTOR 54000600 
CG CORRECT TO FOUR(4) DECIMAL DIGITS. 54000610 
Cc 54000620 
Cc IFLAG IS THE ROUNDED STATUS CODE WHICH SHOULD 54000630 
Cc BE CHECKED BY THE USER IN THE CALLING PROGRAM 54000640 
c =0 NO ERROR 54C00650 
Cc =1 INPUT DATA WITHIN EXTRAPOLATION RANGES AS §4C00660 
CG GIVEN IN API 2540, TABLE 54,11.1.54 §4C00670 
Cc =-1 INPUT DATA OUTSIDE SPECIFIED RANGE OF 54000680 
Cc APPLICATION AS GIVEN IN API 2540 54000690 
Cc TABLE 54,11.1.54 54C00700 
Cc 54C000710 
DATA TEP1 , IEP2, IEP3/12000,9000,6000/ 54000720 
DATA NBP1 ,NBP2/4860, 16740/ 54000730 
DATA IBP1 , IBP2/9180,9540/ 540600740 
DATA ITMP1, ITMP2, ITMP3/15000 , 12500 , 9500/ 54000750 
DATA IBAS/1500/ 54C00760 
DATA IBT1/-1800/ 54000770 
VGFC=-1.0 54000780 
VCFP=-1.0 §4C00790 
IFLAG=-1 54000800 
Cc 54000810 
Cc ROUND INPUT VALUES 54600820 
Cc 54C00830 
ITEMP=DEGC*1000. 54000840 
IF(ITEMP.GT.0)ITEMP=ITEMP+25 54C00850 
IF(ITEMP.LT.0)ITEMP=ITEMP-25 54000860 
ITEMP=ITEMP/50*5 54000870 
DEGC=FLOAT(ITEMP)/100. 54000880 
IALF=(ALF15*10000000 .0+5.0)/10.0 54000890 
ITALF=IALF*10 54000900 
ALF15=FLOAT(IALF)/10000000.0 54600910 
Cc 54000920 
Cc CHECK ALPHA RANGES 54000930 
Cc 54600940 
IF (IALF-NBP1)10,20,20 §4C00950 
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10 CONTINUE 


20 
30 


aqaa0 


aqaa0g 


aa00 


101 
105 


110 
120 
130 
140 


aaaana 


150 


oOag 


160 


180 
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RETURN 
IF(IALF -N8P2)30,30,10 
CONTINUE 


CHECK VALID TEMPERATURE RANGES 


IF (ITEMP-IBT1)40,50,50 
CONTINUE 

RETURN 

IF( IALF-IBP1)60,60,70 

IF ( ITEMP-ITMP1)100,100,40 
IF(IALF-IBP2)80, 80,90 
IF(ITEMP-ITMP2)100,100,40 
IF (ITEMP-ITMP3)100, 100,40 
CONTINUE 

ITIALF=IALF 

IDT=ITEMP- IBAS 


CALCULATE VCF 


CALL VCFS4C(IIALF ,IDT, IVCF) 
IFLAG=0 


CHECK TO DETERMINE IF IN EXTRAPOLATED REGION 


IFC IALF-IBP1)101,101,110 
IF( ITEMP-IEP1 )140,140,105 
IFLAG=1 

GO TO 140 

IFC IALF-IBP2)120,120,130 
IFC ITEMP-IEP2)140,140,105 
IFC ITEMP-IEP3)140,140,105 
CONTINUE 


CALCULATE PRINT AND CALCULATION VALUES OF VCF 
PRINT VALUE (PVCF) ROUNDED TO 4 DECIMAL DIGITS 
CALCULATION VALUE (CVCF) ROUNDED TO 5 SIGNIFICANT DIGITS 


JVCF=(IVCF/1000+5)/10 
PVCF=JVCF 

PVCF=PVCF/10000. 

IFC IVCF-100000000)150,160,160 
CONTINUE 


VCF LESS THAN ONE, FIVE DECIMALS RETURNED 


JVCF=(IVCF/100+5)/10 
CVCF=JVCF 
CVCF=CVCF/100000. 
GO TO 180 
CONTINUE 
CVCF=PVCF 
CONTINUE 
VCFC=CVCF 
VCFP=PVCF 

RETURN 

END 
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54C00960 
54000970 
54C000980 
54C00990 
54001000 
54001010 
54001020 
540601030 
54001040 
54C01050 
54C01060 
54001070 
54001080 
54001090 
54001100 
54001110 
54001120 
54001130 
§4€001140 
540601150 
54601160 
54001170 
54001180 
540601190 
54601200 
540601210 
54€01220 
54001230 
54001240 
54601250 
54001260 
54601270 
54C01280 
54001290 
§4€01300 
54601310 
54601320 
54€001330 
54001340 
54601350 
540601360 
54001370 
540601380 
54001390 
54601400 
54001410 
54001420 
54001430 
§4C01440 
54001450 
54C01460 
54001470 
54001480 
54001490 
54001500 
§4€001510 
54001520 
54001530 
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SUBROUTINE VCF54C(IALF ,IDT,IVCF) 54001540 
Cc 54001550 
G THIS MODULE IS DESIGNED TO CALCULATE VOLUME 54001560 
Cc CORRECTION FACTOR. ALTHOUGH ALL CALCULATIONS ARE DONE 54001570 
Cc AS INTEGERS, THE SUBROUTINE RETURNS WITH A 8 54001580 
CG OR 9 DIGIT VALUE DEPENDENT UPON WHETHER IDT 54001590 
Cc IS POSITIVE OR NEGATIVE. 54001600 
Cc 54001610 
Cc ALGORITHM- 54001620 
Cc VCF=EXP( -ALPHA*DT(1.0+0.8*ALPHA*DT ) ) 54001630 
Cc 540601640 
Cc CALCULATE ALPHA*DT 54601650 
Cc 54001660 
ITERM1=IALF*IDT 54001670 
ITERM1=ITERM1/10 54001680 
Cc 54601690 
Cc CALCULATE 0.8 *ALPHA *DT 54001700 
Cc 54001710 
ITERM2=ITERM1 /5*4 54001720 
CG 54001730 
Cc CALCULATE EXPONENT -ALPHA*DT(1.0+0.8*ALPHA*DT) 54001740 
Cc 54001750 
CALL MPYC(ITERM1 , ITERM2, ITERM3) 54001760 
IX=- (ITERM1+ITERMS ) §4C01770 
Cc 54001780 
Cc CALCULATE EXPONENTIAL(FIRST 7 TERMS OF POWER SERIES) 54001790 
Cc 54001800 
ISUM1=100000000+1X 54001810 
CALL MPYC( IX, 1X, ISUM2) 54001820 
ISUM2=ISUM2 /2 54001830 
CALL MPYC(IX, ISUM2 , ISUM3 ) 54001840 
ISUM3=ISUM3 /3 54001850 
CALL MPYC( IX, ISUM3 , ISUM4 ) 54001860 
ISUM4=ISUM4/4 54001870 
CALL MPYC( IX, ISUM4 , TSUMS ) 54001880 
ISUM5=ISUM5 /5 54001890 
CALL MPYC(IX, ISUM5 , ISUM6 ) 54001900 
ISUM6=ISUM6G6 / 6 54001910 
IVCF=ISUM1 +1ISUM2+1SUM3+ISUM4+1ISUM5+ISUM6 54C01920 
RETURN 54001930 
END 540601940 
SUBROUTINE MPYC(IX,IY,1IZ) 54001950 
Cc 54001960 
Cc THIS MODULE PERFORMS INTEGER MULTIPLICATION. THE TOTAL 54001970 
Cc NUMBER OF DIGITS IN IX AND IY MUST NOT EXCEED 17. OTHER 54601980 
Cc WISE, OVERFLOW WILL OCCUR. 54001990 
Cc §4C€02000 
Iu1 = IX / 10000 54002010 
K1 = 10000 * Iu1 54602020 
IV1 = IX - K1 540602030 
Iu2 = IY / 10000 54002040 
K2 = 10000 * IU2 54602050 
Iv2 = IY - K2 54002060 
K3 = IU1 * IV2 4+ IU2 * IVt + IV1 * IV2 / 10000 54002070 
IZ = (K3 + 5000) / 10000 + IU1 * IvV2 54602080 
RETURN 54¢C02090 
END 54002100 
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11.1.54.9 IMPLEMENTATION PROCEDURE FOR SUBROUTINE TAB54C 


In today's world there is a rapidly developing trend to use computers in 
custody transfer measurements, accounting work, process control systems, and a 
variety of other uses where tables must be incorporated into computer codes. 
Yet many of the printed tables are almost impossible to code due to the fact 
that someone has slightly modified selected values to differ from those 
obtained using the mathematical expression that supposedly generated the 
tables. To overcome this problem it is often required to add extensive excep- 
tion tables to the codes. This makes the codes large and cumbersome to modify, 
and restricts their use to larger computer systems. Also with the development 
of better measuring devices it is often possible to gain more digits of preci- 
sion in the table parameters, necessitating finer grid of the tabular values, 
resulting in larger volumes of printed tables to be handled. 

In addition, as the on-line use of computers for metering purposes 
increases, the direct use of printed tables wil! decrease; therefore, the new 
Standard is an explicit implementation procedure rather than a set of equa- 
tions or a set of tables. It must be remembered that the standardization of 
the implementation procedure implies standardization of the set of mathemati- 


cal expressions used within the code. Absolute adherence to the procedure 


will help to insure that all! computers and computer codes of the future, meet- 
ing the specifications and restrictions, will be able to produce the same 
results. It is believed that this procedure will allow for the maximum 


machine and code independence. The procedure was implemented in computer sub- 
routines issued by API in 1980 using ANSI/ASA FORTRAN. The subroutines maxi- 
mized precision by the use of 32-bit integer arithmetic. 

The procedure as described in the following text can, by careful and 
deliberate application of numerical analysis, be used with the majority of 
languages and word sizes in present or anticipated use. To use the standard 
procedure means to maintain absolute and unwavering adherence to the number of 
digits specified at each step and to the calculation procedure as outlined. 

In the procedure, the nomenclature used is that of ASTM E380-76, unless 
an explicit procedure is given below, in which case the procedure given below 
overrides that given by ASTM £380-76. 

In the procedure the nomenclature (XXX.XX) means five (5) mathematically 


significant digits. 


Copyright por American Petroleum Institute 
Mon Feb 07 13:43:41 2005 


API MPMS*L1L-1 VOL*X 80 MM 0732290 OS2bebS bel 


X-400 CHAPTER 11—PHYSICAL PROPERTIES DATA 


The term rounding as used in the procedure means: Consider only The 
first digit to the right of the desired position and 

a. If that digit is greater than 4, increment the desired position by 
one and drop the remaining digits to the right of the desired posi- 
tion. 

b. If that digit is less than 5, simply drop the remaining digits to 
the right of the desired position. 

11 constants are used to exactly the number of digits printed. 


Calculation Procedure 


STEP 1: Round input variables of coefficient of thermal expansion (ALF15) and 
observed temperature 
a. Round coefficient of thermal expansion to the nearest 
-0000010 and carry as 6 digit result 
i.e. ALFI5 = .«O00XXX 
b. Round observed temperature to the nearest 
0.05°C and carry as 5 digit result 
i.e. observed temperature (DEGC) = XXX.XX 


STEP 2: Calculate At 
define At = DEGC - Tease 
Note: Tgasp carried to 4 digits XX.XX (15.00) 
Carry At = XXX.XX 


STEP 3: Calculation of VCF 
define VCF = EXP{[-gAt(1.0 + 0.84 At)] 
= EXP[-aAt - 0.8 a4 At4] 

a. Calculation of exponent 
a(1) a At = «XXXXXXXX 
a(2)  «8aAt = «XXXXXXXX 
a(3) .8 a2 At2 = .XXXXXXXX rounded to nearest .00000001 
a(4) -aAt - 0.8 a2 At2 = O.XXXXXXXX with any trailing 

digits dropped 
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be Calculation of exponential! 
VCF = EXP[-aAt - 0.8 a2 At2] = X.XXXXXX 
using at least the first 7 terms of the power series expansion 


of e% 


Computational 


value of VCF 


1.XXXX rounded to nearest 0.0001 if VCF > 1 
O.XXXXX rounded to nearest 0.00001 if VCF < 1 


Table value 
of VCF = X.XXXX rounded VCF to nearest 0.0001 


The 1980 integer FORTRAN code issued by API contained an integer multi- 


plication algorithm. A description is contained in the fol lowing: 


INTEGER MULTIPLICATION PROCEDURE 
(FOR 32 BIT ARITHMETIC) 
DATA DEFINITION 

X, Y are integer numbers that are equal to or less than 2 * 109 
(slightly less than 251). A larger value may cause overflow. In addition, 
the total number of digits in X and Y must not exceed 17, otherwise overflow 
will occur. 

Z is the product XY scaled by 1078, i.e. Z = xv/108. 

Note: If it is desirable to obtain maximum precision, X and Y may be 
scaled up prior to use of the procedure. Typically, at least 15 digits are 
needed to obtain 6 digit precision, 16 for 7 and 17 for 8. 

The largest values of X and Y that may be used are 2 000 000 000 and 
99 999 999. (Either values may be used for X and Y). 

CALCULAT 1ON 


X/10000 = Uy 
10000 Uy = Ky 
X- Ky = Vy 
Y/10000 = U2 
10000 U2 = Ko 
Y - Ko = V2 


(U4Vo) + (UpV,) + (V4V¥2/10000) = Kz 
(K3 + 5000)/10000 + (UU) = Z 
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Note: Z has been scaled by 107-8 and may have to be rescaled before use. 


TOTAL DIGITS IN X_AND_Y 42) AB. MA 45 “16. A. 
DIGITS IN PRODUCT, Z 3-4 4-5 5-6 6-7 7-8 8-9 


Examples For Checkout 


The following examples are designed to aid in checkout procedures for 
both the existing AP! subroutine and any subroutines which are developed using 
the implementation procedure outlined above. The lines of the examples are 
numbered to correspond to the corresponding lines within the calculation pro- 


cedure. 


EXAMPLE 1: Assume a liquid petroleum product with a coefficient of thermal 
expansion corrected to 15 °C of 0.0007526 and an observed temper- 
ature of 40.73 °C. Calculate the VCF required to correct the 


volume to 15 °C, correct to 4 decimal digits. 


STEP i: ae rounded ALF15 0.000753 
b. rounded DEGC = 40.75 


STEP 2: At = 25.75 


STEP 3: Calculation of exponential 

a» Calculation of exponent 
a(1) 0.01938975 
a(2) 0.01551180 
a(3) 000030076 
a(4) -0.01969051 

be Calculation of exponential 
VCF = 0.980502 


VCF correct to 4 decimal digits = 0.9805 


EXAMPLE 2: Assume a liquid petroleum product with an input coefficient of 


thermal expansion corrected to 15 °C of 0.0010120 and an observed 
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temperature of 4.0 °C. Calculate the VCF required to correct the 


volume to 15 °C, correct to 5 significant figures. 


STEP 1: a. rounded ALF1I5 = 0.001012 
b. rounded DEGC = 4.00 


STEP 2; At = -11.00 


STEP 3: Calculation of exponential 

a» Calculation of exponent 
a(1) -0.01113200 
a(2) -0.00890560 
a(3) 0.00009913 
a(4) 0.01103287 

b. Calculation of exponential 
VCF = 1.011093 


VCF correct to 5 significant figures 1.0111 


EXAMPLE 3: Assume a liquid petroleum product with an input coefficient of 
thermal expansion corrected to 15 °C of 0.0006039 and an observed 
temperature of 131.75 °C. Calculate the VCF required to correct 


the volume to 15 °C, correct to 5 significant figures. 


STEP 1: ae rounded ALFI5 = 0.000604 
be rounded DEGC 131.75 


STEP 2: At = 116.75 


STEP 3: Calculation of exponential 
ae Calculation of exponent 
a(1) 0.07051700 
a(2) 005641360 
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X-404 CHaPTeR 11—Puysicat PROPERTIES DATA 


a(3) 0,.00397811 
a(4) -0.07449511 

be Calculation of exponential 
VCF = 2928212 


VCF correct to 5 significant figures = 0.92821 
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API MPMS*11.1 VOL*X 60 0732290 OS2b270 T99 


Order No. 852-27145 


1—1700—8/80—3500 
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American Petroleum Institute 
2101 L Street, Northwest 


Washington, D.C. 20037 I ) 
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